1 
01/257 80 


EXTERNAL REFERENCE SPECFICATION 


for 


SIMULATED NOS/VE PROGRAM INTERFACES 


Submitted’ 


Apor oved’ eae eS ee ee 


AD A RIS OS CA ED SRE ONES cee MER AOR ERE EERO TIRE ERR Neene Ra ERY 


WOR TOILED a SLs VOR ER ADE SUES EE AEA SAAN RIED ES ca et eat a 


DISCLAIMERS 
This document is an internal working paper onty. It does not 
necessarily represent any offical intent on the part of CDC. 
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120 INTRODUCTION 


The SIMULATED NOS/VE PROGRAM INTERFACES are provided for prog*ams 
running on the CYBER 180 SIMULATOR. Their intent is to duplizate 
the CYBIL interfaces available on the CYBER 180 under NOS/VE. 


1.1 APPLICABLE DOCUMENTS 


NOS/VE ERS ~- PROGRAM INTERFACE (ARH3610, REV 5) 
ERS for CYBIL 170 (ARH2739) 
ERS for C180 SIMULATED ENVIRONMENT (ARH1729) 
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220 SIMULATED NOS/VE [70 INTERFACES 


200 SIMULATED NOS/VE 170 INTERFACES 


Z2e1 INTRODUCTION 


The SIMULATED NOS/VE I/0 system (AMPS) consists of a cotiection 
of procedures and common data type deciarations which provide for 
the use of a subset of the NOS/VE 179 procedures described in the 
NOS/VE ERS - PROGRAM INTERFACE, section 6 on FILE MANAGEMENT. 


Tre SIMULATED NOS/VE I/70 system provides two distinct methods of 
performing I/7/0- The first method uses the CYBER 180 SIMULATOR to 
Simulate NOS/VE programs. This method is hereafter refered to as 
“SIMULATED NGS/VE I/0". The second method provides for direct 
execution of the user program on the NOS/i170 machinee The serzond 
method is hereafter catied the “NO0S/170 INTERFACE“. SIMULATED 
NOS/VE I/70 and NOS/170 INTERFACE together are nereafter referred to 
as the “SIMULATED NGS/VE I/0 system”. 


SIMULATED NOS/VE £70 is avaitabie only as part of the CYBER 180 
SIMULATOR on a NOS/170 machinee SIMULATED NOS/VE 1/0 is compatibdie 
onty with programs compited to generate CYBER 188 object code, such 
as the CYBER 180 CYBIL compiler (CI version) or CYBER 180 Assenbdly 
Language. 


Tne NOS/170 INTERFACE is compatibie onty with programs writters in 
the CYBIL tangquage and compiled with the CC (NO0S/170 object cde) 
version of the compiler. The NOS/170 INTERFACE consists of a set of 
object time routines that emulate NOS/VE I/70 caflis. This interface 
is provided as a means of running programs directly on a NOS/170 
machine and (optionalty) using the CYBIL debugger. 


It is assumed that the user is familiar with tne CYBIL ljangiage 


and that the user has read the NOS/VE ERS =~ PROGRAM INTERFACE, 
section 6 on FILE MANAGEMENT. 
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2e1.i1 USAGE OVERVIEW 


The following biock diagrams illustrates the generalized usage 
structure for this product. The SIMULATED NOS/VE I/0 diagram is not 
intended to be complete in detait, rather it is meant as a 
generalized overview of the capability added to the CYBER 180 
SIMULATOR by this I/0 producte The method diagrammed for SIMULATED 
NOS/VE I/70 executes the user program by itself on the CYBER 180 
Simutator. Aitternatives to this “stand atone” methods such as using 
the NOS/VE operating systems are available for program simulation. 
Further detaits on these other methods is not herein providede 


The diagram of the NOS/170 INTERFACE shows how one may =tak2 = a 
program to be run on NOS/SVE and debug the orogram with the Cf 3Il 
debugger by compiling the program and running the program on the 
NOS/170 machine using the NOS/170 INTERFACE. 
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BLOCK DIAGRAM OF SIMULATED NOS/VE I/70 USAGE OVERVIEW. 
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BLOCK DIAGRAM OF NOS/170 INTERFACE USAGE 
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20122 FILE TYPES 


The SIMULATED NOS/VE I/0 system (AMPS) provides by default the 
record access level on untabeled, sequential or byte addressable 
files with “W" type records on mass storage. This file structur: is 

identified as having a biock type of “amc$system_specified“" ani a 
record type of “amc$variabie”. SIMULATED NOS/VE £70 also provides 


The record access tevel for unlabeled, sequential files on anass 
storage oniy with the “interchange” fite formats which provides for 
access of NOS/170 files directty by a NOS/VE programe. The 


“interchange” file format is identified as having a block type wrich 
is “amc$user_specified” and a record type which is “amc$undefin2d™. 


Segment access and physical (read/write) access are not 
provided. No other record types, such as Ansi Fixed are permitted. 
Oniy mass storage files may be accessed by this product, with the 
exception of the interactive terminal files. user supplied -2xit 
procedures are not supported either. 


The NOS/170 INTERFACE provides an equivaient interface for 
programs compited with the CYBIL CC compiler, generating object :ode 
for a CYBER 170 machinee Onty the “amctvariablie™ record_typ2 is 
provided by this interface. 


2e1-2e1 DEFAULT {CONTROL WORD) TYPE NOS/VE_ FILES 


A control_word type fite failso called W-type) nas a record type 
ordinal identifier of “amctvariabie". “Amctvariablie™ record typ2 is 
distinguished by the fact that each record in the file is precaded 
by a record_header. For SIMULATED NOS/VE I/0 the record_hneader is 
elght (8) bytes tonge For tne NOS/170 INTERFACE the record_header 
is one (1) word tong. 


This NOS/VE file structure is expected to be the most conmon 
NOS/VE file types being used for batch Job and interactive input and 
output, compiters, editors, and most other other called programs. 
Input and output to the interactive user terminal or batch job are 
also orovidede A record is the nominal unit of data transfer in 
NOS/VE I/0, which is a different terminotogy than is used by 
NOS/170« For amore complete description of the NOS/VE I/0 system 
refer to the NOS/VE ERS document. 


The “amc$variabie”™ file format of SIMULATED NOS/VE I/G does vot 
record data on a NOS/170 fite in a format which is direrttiy 
accessabie by any other NOS/170 products, such as editors, 
compiters, etc. Data conversion is provided onty for character jJata 
via the conversion utilities (see Section 8 and 9). 
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Sequential fites have oniy sequential access and is identifiei as 
having a file_organization of “amc$sequential". Data appears in the 
fite in the order in which if was written, and can onty be read in 
that same order. These files may be positioned at the beginning or 
end of informatione Note that positioning at the beginning and then 
writing a sequentiai file imoties that ait data which was previoisiy 
present on the file is lost. 


2Zeie2eie2 BYTE ADDRESSABLE NOS/VE FILES 

Byte addressabie files are tike sequentiai fiies except the file 
may be positioned randomly by specifying a “byte address". jiyte 
addressable fites are identified as having a fiie organization of 
“amctbyte_addressabie™. Note that writing from the beginning df a 
byte addressabie file does not necessarily impiy that existing jiata 
{which foltows the data being written) will be tost as is the :ase 
with the sequential files. 


Byte addresses returned by the SIMULATED NOS/VE I/S8 system snouid 
be, but may not necessarily be the same as the byte addresses 
returned by NOS/VE. 


2ele2e2 NOS/170 OR MINTERCHANGE™ FILES 


The “interchange” file format is provided as a means of dirertliy 
accessing any NGS/170 file. This file type is identified as having 
a record type of “amctundef ined”. 


“Intercnange™ files are defined to have no record structure. 
Data from an “interchange™ type file is mapped into a NOS/VE program 
in terms of whote (NO05S/170) words. Each 60-bit, NOS/170 sord 
occupies the fcrightmost 60 bits of eight consecutive bytes {or 54 
bits) of virtual memory. The remaining bits are zero filled. Ahen 
an “interchange” type file is written, only the rightmost 60 bits of 
every 8 bytes is recorded on the fite. For both gets and puts the 
users working storage iength must be specified as an even multiple 
of 8 bytes, else an error is returned. Aliso, since onty wrole 
NOS/170 words are transmitted the “record_ltength", “transfer_comt”™, 
and “byte_address™ parameters returned by any of the “amp$g2t_™ 
procedures will atways be even multiples of 8. 


SIMULATED NOS/VE I/0 transmits data for an “interchange” type 
file only in terms of Physical Record Units (PRU*S), which for rass 
storage fites must be 64 N0S/170 words, or 5i2 bytes of virtual 
memory. For this file type SIMULATED NOS/VE I/G provides only § for 
the ohysical transfer of whoie (NO0S/170) words of data. 


SIMULATED NOS/VE I/0 support of “INTERCHANGE™ files includes 
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reading of single record fiites and reading of multi record files. 
Reading of “multi_file fiites™” is not supported. SIMULATED NOS/VE 
1/0 support of “INTERCHANGE®™ files also inctudes writing sirgie 
record files and writing muiti_record files. Generation of 
“multi_file files™ is not supported. 


For alii “interchange” fiies the NOS/VE program must provide any 
necessary blocking or debliocking of the data. 


This file type is not availabie with tne NOS/170 INTERFIC=. 
CYBIL I70 may be used. 


Ceole2e2ei SEQUENTIAL “INTERCHANGE™ FILES 

Each get_nexf or put next transmits whole PRU*s, or mulftipies of 
5i2 ¢ 64 * 8 ) bytes of data. A get_next of iess than 512 bytes of 
data will transmit the requested number of bytes of data and 
advances the fiie to the next PRU of data. A get next of a srort 
PRU with a NOS/170 “end_of_record™ or a get_next of a short PRU sith 
a NOS/170 “end_of_filte™ wil! cause an “amcf$eop™ (end_of_partition) 
status to be returned, in addition to any data returned and the file 
is positioned at the PRU following the short PRU. Get_partiai 
requests may be used to retrieve tesser amounts of data in each PRU 
without skipoing any data in the PRU. After a get_partial of a 
short PRU transmits the tast word of data in the PRU it operates 
just fike a get_next of a short PRU. A get_partial transmits jata 
up to the end of the PRU but does not cross a PRU boundary. 


A put next writes a whoite PRU of data and advances the file to 
the next PRU. A put_next of iess than 512 bytes causes a short PRU 
with a NOS/170 “end_of_record™ to be written. A put_partial sith 
“term™ parameter of “amctstart”’ or “amc$cont™ may be used to add 
data to the tast PRU of the file without causing a short PRU to be 
written and without causing the file to advance to the next RU, 
untess the PRU is filled by the put_partial. A put_partiai vith 
“term™ parameter of “amceg$term", which does not fill a PRU with data, 
will cause a short PRU with a NOS/170 “end_of_record™ to be written 
and the fife will advance to the next PRU. After a put_partial is 
used to put some data in a PRU a put_next may be used to fiti the 
PRU with datas but if the PRU is not filled by the put _next thar a 
short PRU with a NOS/170 “end_of_record” is written and the fite 
advances to the next PRU. 


201.223 NOS/170 FILE ACCESS BY SIMULATED NOS/VE 70 


SIMULATED NOS/VE I/0 utilizes the CYBIL 1/0 procedures for data 
transmissions with the NOS/170 fites. For “amc$variabie™ type files 
the CYBER 180 program requests use 8-bit bytes as the unit of jata 
transmission, whereas NOS/170 uses 60-bit words as the unit of fata 
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transmission. The object program interface for SIMULATED NOS/VE 170 
records information for the amc$variabie record_type on the NOS/1i706 
file at seven 8-bit bytes per CYBER 170 CPU worde A record can 
start at any byte address on the file. 


The intended use of the SIMULATED NOS/VE I/70 system for odyte 
addressable fiites is that the file initially be written sequentially 
and subsequentty the file may be accessed randomiy and records may 
be rewritten randomty or new records may be added at eni of 
informatione It is not recommended that the user program gene~ate 
byte addresses for putting records into a file. <Any usage of fhis 
product, other fhan that intended, may rot necessarily be compati bie 
with NOS/VE. 


For “interchange” or amctundefined record type files accessed by 
SIMULATED NOS/VE I/70 tne processing of any internal data structure 
of each PRU of data transmitted is the exclusive responsibility of 
the CYBER 180 programe 


2e1-2.% NOS/170 INTERFACE FILES 


Onty the control_word type of files are provided by this 
interface. Interactive input/output is also availabie. The NOS/170 
INTERFACE does not record data on ae file which is dire:tiy 
accessabie by any other NOS/170 products. Conversion is provided 
onty for character data. See Section 9. for detaiis ad out 
conversion. 
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2e2 1/70 _ PROCEOURES 


Oniy the following I/0 procedures are supported by the SIMULATED 
NOS/VE I/70 system. The procedures are listed alphabetically. 


The user is cautioned that undefined input parameters of =the 
procedures give undefined results. Other precedures in the "ILE 
MANAGEMENT section of the NOS/VE ERS which are not mentioned in this 
ERS are not supported by the SIMULATED NOS/VE I/70 systeme 


2e2ei AMPSCLOSE 


This procedure closes the file and invatidates the file 
identifier of the fiie.e This procedure is fully supported by the 
SIMULATED NOS/VE I/0 system. 


2e2ee AMPSFETCH 


AMPS$FETCH returns the identical file_attribute information as the 
AMPSGET_FILE ATTRIBUTES procedure. AMPSFETCH requires the 
file_identifier of an open file as input, whereas 
AMPS$GET_FILE_ATTRIBUTES uses tocal file name. The caller nust 
initialize all file_attribute keys and AMP#FETCH returns the 


corresponding fite_attribute value. Refer to the section on jata 


types for a comptete description of file_attributes returned by the 
SIMULATED NOS/VE 170 systeme 


20223 AMPSFETCH_ACCESS_INFORMATION 


This procedure returns information about the current status of 
the file to the caitier. The information is returned in the 
access_information recorde The caller must initiaiize al 
access_iInformation keys and the SIMULATED NOS/VE I/0 system returns 
the corresponding access_information vaiue. Refer to the section on 
data_types for a complete explanation of the information returnel by 
the SIMULATED NOS/VE I/0 system. 


Cede AMPSFILE 
This procedure defines the attributes of a fiie. Although NOS/YVE 
I/0 permits this procedure to be executed at any times the SIMULATED 


NOS/VE I/0 system does not permit this orocedure to be executed when 
the file is opene The AMP$STORE procedure may be used instead. 
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The caliter must initialize the file attributes parameter, doth 
key and vatue, before catling AMPSFILE. Ail file_attributes are 
accepted by the AMPSFILE procedure as input, but only some 
file_attributes are used by the SIMULATED NOS/VE I/0 system. Refer 
to the section on data types for a description of the 
file _ attributes parameter. The user must also suoply 
focal _fite_name as input. 


2e2e5 AMPSGET_FILE_ATTRIBUTES 


This procedure is normally executed before opening a fil: to 
determine the previous definitions if anys of the filee The 
information is returned in the file_attributes record. The calier 
must initialize ali file attribute keys and the SIMULATED NOS/VE 70 
system will return the corresponding file_attribute value. The iser 
must supply the ftocai_file name parameter as input. Status of the 
request is returned in “status”. 


AMP$GET_LFILE_ATTRIBUTES wild return default values for ail 
file_attributes if the file is unknown to SIMULATED NOS/SVE I/0 
system. Refer to the subsequent section on data types for a 
description of the fite_attributes parameter. 


20206 AMPS$GET_DIRECT 


This procedure returns data from the tocation on the fite 
specified by the catier. This procedure is fully supported by the 
SIMULATED NOS/VE 1/0 system for files with amc $varia3ble 
record type. This procedure is supported with “interchange” type 
files having a record type of amctundefined but the byte_add*ess 
parameter must specify the first byte of a PRU ( be a multipi2 of 
512 ). NOS/V¥E wili not provide this procedure for “intercharge™ 
files. 


2e2e? AMPSGET_NEXT 
This procedure returns the next sequential record of data from 


the file to the user program. This procedure is fully supported by 
the SIMULATED NOS/VE I/0 system. 
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20228 AMPSGET_PARTIAL 


This procedure returns a partiai record from the next location of 
the file. Subsequent AMPSGET_PARTIAL requests are used to retrieve 
the remainder of the totai record. This procedure is fully 
supported by the SIMULATED NOS/VE I/0 system. 


20229 AMPS$OPEN 


This procedure opens a file whose locali_file_name is input = and 
returns the file_identifier to the cailer. The only access_i2vel 
parameter permitted is “amc$record”. This procedure is fully 
supported by the SIMULATED NOS/VE 179 system, with the exceptions 
that muitipte opens of the file at the same time are not permitted 
and the tiocai_file_name must conform to the tlimits of construction 
imposed by the SIMULATED NOS/VE 1/0 system. Refer to the sectior on 
data types for an explanation of the timits to the construction of 
jocai fite_name. 


2e2210 AMPSPUT_ODIRECT 


This procedure outs a whole record into the fiie at the 
byte_address specified by the user. This procedure is falty 
supported by the SIMULATED NOS/VE I/0 system for files with re:zord 
type of amc$variablie. The user may rewrite an existing record on 
the file, or the user may write a new record at or beyond the enji of 
information currentiy defined for the file. This means that the 
byte address specified must point to an existing record on the file 
{so that ampfput_direct re-writes the existing record) or dyte 
address may point beyond the tlast record of = the file (so 
amptout_ direct adds a new record to the fiie). 


This procedure is supported for “interchange” type files havirxg a 
record type of amctundefineds but the byte_address parameter rust 
specify the first byte of ae PRU. A put_direct may rewrit2 an 
existing PRU of the file or it may write a new PRU at 
end_of_information onty. Put direct can not be used to write beyond 
end_of_information. NOS/VE wilt not provide this procedure for 
“interchange” files. 


222011 AMPSPUT_NEXT 
This procedure transfers a whole record from the users worcing 
storage area to the “next™ location in a file. This procedure is 


fully supported by the SIMULATED NOS/VE I/0 system. 
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202012 AMPSPUT_PARTIAL 


This request transfers a partiai record from the users wor<ing 
storage area to the “next™ tocation in the filee NGS/VE permits the 
user to put one or more parts of a record into the file followed by 
a put partial specifying the start of a new record, but the 
SIMULATED NOS/VE 170 system does not support this feature. Once the 
first part of a record has been put into the file the user must do a 
put partial of the ftast part of the ecord before a new record is 
started, eise an error is returned. Ail other features of 
putf_partial are supported by the SIMULATED NOS/VE I/0 system. 


222213 AMPSREWIND 


This procedure positions a file at beginning of information. 
This procedure is supported by the SIMULATED NOS/VE I/0 system, but 
the WAIT parameter is not interrogated as OSCSWAIT is assumed. 


202014 AMPS$SEEK_DIRECT 


AMPSSEEK_DIRECT is used to set the current_byte_address of a file 
to a new value. This procedure may be used onty on files op2ned 
with a file_organization of amct8byte_addressabie. 

The catler must insure that the byte_address parameter irsput 
points to the start of a record. Amptseek_direct does verify that 
the new current_byte_address does point to the start of a record. A 


subsequent amptget_next,s amp$get_partial, amptput_ne xt, or 
amp$put_partiali caiit that uses current byte address would retury an 
error if an invatid byte_address parameter were input to 


amp$seek_directf. 


222015 AMPSSTORE 


AMPS$STORE procedure is used to set file attributes of an »pen 
file identified by the file_identifier parameter. File_attributes 
to be changed are specified by the store_attributes parameter. The 
store_attributes parameter is a subset of the file_attributes 
parameter used by the procedures AMPSFETCH, AMPSFILE, and 
AMPS$GET_FILE_ATTRIBUTES. Ail store_attributes are permitted by the 
SIMULATED NOS/VE I/G system. Refer to the section on data types for 
a complete description of which file_attributes are t2 gai 
store_attributes and which file_attributes are interpreted by the 
SIMULATED NOS/VE I/0 systeme 
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223 DATA TYPES 


This section defines the CYBIL tanguage “types™ required to 
interface tne SIMULATED NOS/VE I/0 systeme 


The data types necessary for SIMULATED NOS/VE 1/0 are identical 
to the data types necessary for the NOS/170 INTERFACE and ar2 a 
subset of the total capability provided by NOS/VE. yet the user 4il] 
employ common decks which provide a complete definition of fhe 
NOS/VE 1/0 system. This means that there will be some data types 
which are not used and some defined vatues of parameters not allowed 
by the SIMULATED NOS/VE I[/0 system. This section describes only 
those data types used and describes which vaiues of parameters are 
atlowed in the SIMULATED NOS/VE [7/70 system. 


A complete listing of each of the common decks employed by the 
user is given in Section 52 These common decks are input to the 
CYBIL compilers, but they contain comments which describe the mearing 
and usage of the defined data types and procedure parameterse The 
NOS/VE definitions described in the common decks wili always apply 
to SIMULATED NOS/VE I70 and the NOS/170 j$INTERFACE, unless this 
document states otherwise. 


The NOS/VE common decks are subject to change. The use* is 
cautioned that the definitions in the common decks wili always adoly 
and that as necessary, SIMULATED NOS/VE 1/0 and the NOS/170 
INTERFACE wilt be updated to refiect such changes in NOS/VE. 
Problems with usage might arise where an out of date ERS refer2nce 
is usede 


2e3e1 ACCESS_INFORMATION 


ACCESS_INFORMATION is an adaptabie array of case variant 
recor dse Each case variant record holtds one piece of aczess 
informatione The adaptabie array allows the caiter to obtain as 
many pieces of access information as needed per cali. The calfer 
must initialize alt) access_information keys and the SIMULATED NOS/VE 
I/O system returns the corresponding access information value. fhe 
ACCESS_INFORMATION parameter is desctibed in the common deck 
AMDFNFO. 

The SIMULATED NOS/VE 1/70 system accepts alt the different 
access_information cases. The following table shows what pieces of 
access information are maintained by the SIMULATED NOS/VE I/0 system 
and what pieces of access information have default values returred. 
The tetter °S"* in the vatue returned column indicates that the 
current value of the access information kept by the SIMULATED NOS/VE 


2 


I/O system is returned. Tne tetter *D* in the value returned column 
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indicates that a default vatue is returned and the yalue is giver in 


the defauit value cotumn. 


deck contains the definition 


“type”. 


TABLE of ACCESS_INFORMATION 


Tne COMMON DECK coftumn telts which conmnon 
corresponding access 


ACCESS. COMMON VALUE DEFAULT 
INEORMATION_ DECK RETURNED. VALUE 
access_level AMDOPEN 0D amctrecord 
aliocation_unit_tength AMDINFO OD 2048 

block number AMDINFO 0D 1 
current_byte_address AMDGLOB S$ 

cycie number PFDATRB OD 4 
device_class RMBDCLAS §& 

eol_byte_address AMDGLOB §$ 

error_estatus OSBDSTAT OD DB 
fite_position AMDGLOB 5S 

global_fiie_name AMDINFO OD 0 
global_share_mode PFDATRB OD null set 
fast_operation AMDINFO 5 

fast_op_status AMDINFO OD amctcomplete 
locat_fiie_name AMDNAME §5 

record header_length AMDRCDH OD B 
record_tength AMDGLOB $ 
residualt_skip_count AMDINFO OD i 
storage_ciass RMDCLAS 0D rmcétemporary_device 
transfer_count AMDGLOB 5S 

volume_number AMDINFO OD 1 


20322 ACCESS_LEVEL 


This parameter indicates what type of access is desired when the 
be set to the ordinat. 


file is opened. 


parameter 


AMCSRECORD when the file is opened else an error is detected. 


user must always set 


22323 BYTE_ADDRESS 


Byte_address is 


this 


parameter 


parameter 
Other ordinal vatues are not supvoorted. 


returned by 
AMPSPUT_NEXT. AMPSGET_PARTIAL, and AMPSPUT_PARTIAL. 


prior to calling AMPSO°EN. 


an input parameter to AMP$GET_DIRECT and AMPSPUT_DIRECT. 


For a NOS/VE format file 


byte_address is the number of 8-bit 
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bytes from the beginning of information to the location of the 
current record in the file. 


For a NOS/7170 format or “INTERCHANGE™ fite byte_address is 
defined as the number of 8-bit bytes from the beginning of 
information to the tocation of the first byte in the current word in 


the file. Because onty whoie NOS/170 words are transmitted, 
byte_address for this file type wiil aiways be an even multipl2 of 
Be 


2e3e% FILE_ATTRIBUTES 


FILE_ATTRIBUTES is an adaptable array of a case variant record. 
Each case variant record holds one file_attribute. The adaptable 
array allows the user to process as many attributes as needed oder 
procedure call. File _attributes are returned to the caller by the 
procedures AMPSGET_FILE_ATYTRIBUTES and AMPSFETCH. Filte_attributes 
may be specified by the caller of the procedures AMP$FILE and 
AMPSSTORE. Note that for the procedure AMPSSTORE the parameter is 
type AMT$STORE_ATTRIBUTES, but upon closer inspection one discovers 
that this type is actually a subset of the AMTS$FILE_ATTRIBITES 
Type e The definition of the file_attribute parameter is contained 
in the common deck AMDFATT and the definition of the store_attrirdute 
parameter is contained in the deck AMDSTOR. 

The SIMULATED NOS/VE I/0 system accepts and returns all the 
different cases of AMTSFILE_ATTRIBUTES. The following tabie srows 
what attributes are legal AMTS$STORE_ATTRIBUTES, whether tne 
attribute information is retained by the SIMULATED NOS/VE I/70 
system, and what vatue is returned by the SIMULATED NOS/VE I70 
Systeme Tne tabie aiso shows the defauit vatue returned by 
AMPSGET_FILE_ATTRIBUTES when the file is unknown. The tetter *S* in 
the ACTION TAKEN column indicates the system saves the information 
in its fite tabies and returns the same saved information to the 
caller and the default value is returned onty when the file is 
UNKNOWN » The tetter *D* in the ACTION TAKEN column indicates tne 
SIMULATED NOS/VE I/0 system defaults, the attribute vatue is not 
Saved, and the system returns a defautt vatue for all files. The 
COMMON DECK cotumn gives the name of the common deck which defines 
the corresponding file_attribute “type”. 


TABLE of FILE_ATTRIBUTES 


EILE ATTRIBUTE STORE COMMON. ACTION. DEFAULT 
NAME_ ATTRIBUTE. DECK TAKEN. VALUE 
access_mode no PFDATRB > null set 
biock_header_tength no AMDBLKH D 16 
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biock type no AMDFILE 3 amc$system_specif ied 

character conversion yes AMDFATT DB FALSE 

ciear_space no OSDCFS D FALSE 

error_exit_procedure yes AMDF ILE D NIL 

error_options yes AMDFILE D amc$terminate_file 

file command processing no AMDFATT D FALSE 

file content yes AMDFILE D amcSunknown_class » 
amc$unknown _ kind: 
amc$unknown_natute 

file disposition no AMDF ILE D amc$task_local 

file _timit yes AMDFILE S$ 0 

file _organization no AMDFILE S$ amc$sequent ial 

horizontal_print_density yes AMDFILE D amc$ten_coi 

internal _code no AMDFILE D amcf$ascii 

job_local_share_mode no PFDATRB D null set 

label_exit procedure yes AMDFILE D NIL 

label _options yes AMDFILE DB null set 

label _type no AMDFILE D amc$uniabel led 

tine_number yes AMDFILE D del 

max block_iength no AMDGLOB D 4 

max _record_length no AMDGLOB 3 0 

min_block_length no AMDFILE D 1 

min _record_tength no AMDFILE S 0 

open_position no AMDOPOS 3S amc$open_at_boi 

owncode_ procedure no PMDNAME D NIL 

padding_character yes AMDFILE D biank 

page_ format yes AMDFILE D amc$continuous_form 

page_length yes AMDFILE D 66 

page _ width yes AMDFILE D 72 

preset_vatue no AMDF ILE ) 0 

record type no AMDF ILE S amc$variable 

ring_attributes no AMDF ILE D 15915915 

suppress_buffering yes AMDFATT DB FALSE 

transfer_unit yes AMBFILE D amc$t 

user _into yes AMDFILE D bianks 

vertical_print_density yes AMDFILE D0 amc$six_ipi 


The subsequent sections describe those file_attributes wrich 
directiy affect the use of the SIMULATED NOS/VE I/70 systen. 


2eS3e4ei ACCESS MODE 


Access_mode is a set of 5 attributes. Any combinatio of 
access_mode set members is permitted. Aili set members exreot 
PECSEXECUTE are used by the SIMULATED NOS/VE I/0 system. 


PECSREAD access_mode by itseif means the file can only be r2ad. 
When pfc$read is the only access_mode set element the open_posit ion 
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of the fiite must not be open at end of information. When used sith 
other access_mode set elements it means the file can also be reai. 


PECSSHORTEN access_mode by itself means the file can be rewritten 
from beginning of information to end of information only. The file 


size cannot increase. The file may not be read uniess = the 
access _mode set element pfctread is aitiso present. Each write 
establishes a new end of information and all data previously in the 
file beyond end of information is 10Ste When used with other 


access_mode set elements it means that when the file is ctosed a new 
end of information is estabiished for fhe fite at the higrest 
address written. 


PECZAPPEND access_mode by itseif permits the file to be written at 
end of information onty and the open_position file_attribute nust 
correspondingly be set to open at end of information. The file may 
not be read unfess the access_mode set includes ofcS$read. When ised 
with other access_mode set elements it atiows the fiie size to 
increase. 


PECSMODIFY access_mode by itself reguires an existing file and 
permits any portion of the fite to be written without affecting any 
subsequent data in the _§ fite. The end of information remains 
unchanged when the fiie is closede When used with other access _ node 
set elements it causes att previous contents of the file ts be 
retained except the area directiy written. 


The default value for access_mode is the NULL set. When a file 
is opened with a NULL set for access_mode the access_mod2 is 
changede If the file already exists at the time of the open then 
access_mode defaults to the set of [ PFCSREAD 1. If a new fil? is 
being created the access_mode defaults to the set of [ PFCERZAD, 
PFCSSHORTEN, PFCSAPPEND, PFCSMODIFY 1. 


For input interactive files» such as “*INPUT*, the SIMULATED 
NOS/VE I/0 system requires the access_mode to be the set of f[ 
PFCZREAD 1, which defaults for an existing file. An output 
interactive fites such as *OUTPUT*, must have an access_mode whrich 
consists of the set { PFCSAPPEND J], sahich does not default for an 
existing filee The open_position of the file must be 
amc$open_at_eoi to0e The restrictions to the access_mode of 
interactive files are inherent in the SIMULATED NOS/VE I[/0 system 
and are not timitations of NOS/VE. 
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This parameter is an ordinal which indicates blocking structure 
of the file. 


AMCSSYSTEM SPECIFIED indicates the default (controt_word) NOjS/¥VE 
biock_type. This is the default file_attribute returned when the 
file is unknown. 


AMCSUSER SPECIFIED must be used with a record_t ype or 
“amc$undefined™ for an “interchange” file definition, which accesses 
a NOS/170 file directiy. This bBlock_type is not provided by the 
NOS/170 INTERFACE. 


2o3e4e5 FILE ORGANIZATION 


This attribute specifies wahether the file is sequential, or 
byte_addressable. 


AMCESEQUENTIAL indicates a sequential file (default value). 
AMCSBYTE ADDRESSABLE indicates a byte_addressabie file. This file 


organization is required if get_direct and put_direct procedures are 
to be used. 


2eSe%e4 OPEN POSITION 


This parameter is an ordinal which indicates what positiovring 
should be performed for the file being opened. 


AMCZOPEN_AT BOI indicates file position is beginning of 
information. This is the required open position if the access_naode 
consists oniy of the set element ofctread. This ordinal defauits 
when access_mode is a null set. 


AMCSOPEN_AT_ EOI indicates file position is end of information. This 


is the required open_position when the access_mode is the set of 
pfcfappend only. 


AMCSOPEN_NO POSITIONING indicates file position ieft unchanged. 


Other ordinal vatues are not permitted. 


20350425 RECORD TYPE 


This parameter is an ordinat which indicates the record struct ure 
of the data on the fite. 
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AMCESVARTABLE indicates the defautt (controi_word) type NOS/VE file. 
This ordinal must be used in conjunction with a biock_type of 
“amctsystem_default™ to specify the control_word type NOS/VE file. 
This is the default file _attribute vaiue returned when the fite is 
UNKNOWN. 


AMCSUNDEFINED indicates an “interchange” filtee This ordinal musf be 
used in conjunction with a biock_type of “amcetuser_snecified” to 
provide the “interchange™ file definition for access of a NOS/170 
file directiy by the program. This record_type is not provided by 
the NOS/170 INTERFACE. 


Other ordinal vaiues of record type are not supported. 


20325 FILE_IDENTIFIER 


This data type is used when calling any of the AMPS procedures 
except AMPSGET_FILE_ATTRIBUTES and AMPS$FILE. A file identifier 
variabte must be provided for each file opened. The vatus of 
filte_identifier for a file is returned by AMPSOPEN for the file 


being opened. File_identifier is used by ali other procedures 
except AMPSGET_FILE_ATTRIBUTES, AMPSFILE, and AMPSOPEN to identify 
the fiie being accessed. Muitipie opens of a file in the same 


program are not supported by the SIMULATED NOS/VE I/0 system. The 
file_identifier of each file open concurrentiy wiit be unique. 
File_identifier remains defined until the file is closed. Urider 
NOS/VE a user program may not define more than 28000 files 
concurrentiys. This data type must be teft undefined by the user. 


2-326 FILE POSITION 


This parameter is an ordinal that is returned by AMPSGET_DIR: CT, 
AMPSGET_NEXT, and AMPSGET_PARTIAL procedures. The parameter may 
aiso be returned by AMPSFETCH_ACCESS_INFORMATION. The SIMULATED 
NOS/VE 1/0 system currentiy returns onty AMC$BOI, AMCEMID_RECIRD, 
AMCSEOR, or AMCSECI with the amc$variabie record type. Other 
ordinal! values are not returned. See section 3.3 for further 
information. 


For “interchange” file format the AMCSEOP status can be retuned 
in addition to alii the previously mentioned ordinalse A status of 
AMCSEOP indicates “end_of_record™ » or a short PRU of data on the 
file. When the fiie position is at the start of a PRU the status 
returned is AMCSEOR and when the file position is in the middie of a 
PRU the status returned is AMCSMID_RECORD. 
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2e3e7 LOCAL_FILE_ NAME 


LOCAL_FILE_NAME is an input parameter for the vorocedires 
AMPSFILE.s AMPSOPENs and AMPSGET_FILE_ATTRIBUTES and if is an output 
parameter of the procedure AMPSFETCH_ACCESS_INFORMATION. Nhen 
jlocal_file name is input it is an adaptabie string types but wher it 
is output it is a fixed string of 31 characters. 


NOS/VE requires that the tocal_file name conform to the SCL rules 
for constructing a name. SCL permits a name to be ai string of 
alphabetic characters or decimal digits of 31 characters maximum 
length and the first character must not be a decimal digit. ScL 
defines an atphabetic character to be a itaetter or the special 
characters # (number_sign). $ (dottar_sign), a2 {tat symbol), o* _ 
(underline). NOS/i170 only permits tetters and decimal digits for 
file names and the maximum length is 7 characters. This means that 
the SIMULATED NOS/VE I/70 system can oniy utilize the first 7 
characters of tocal file name. Though NOS/VE permits muiltipie ovens 
of the same fite concurrentty in the same program, this featur2 is 
not supported by the SIMULATED NOS/VE I/0 system. The file may de 
opened onty once before it Is ctoseds but the file may be op2ned 
again following the close. 

The user must insure that tocali file names are unique within the 
first 7 characters and that tocal_file name contains onty tetters 
and decimaf digit characterss eise an error wilt be detected by the 
SIMULATED NOS/VE I70 system. 

There is no defauit vatue set for tocal file name. 


20358 RECORD_LENGTH 


Record_liength is a parameter returned on ail AMPSGET_DIR: CT, 
AMPSGET_NEXTs and AMPS$GET_PARTIAL procedure calls. 


For files with record_tyne of AMCEVARIABLE tne record_ltergth 
parameter is the number of 8-bit bytes in the records 


For “INTERCHANGE™ files, with record_type AMCSUNDEFINED, 
record_f!ength parameter is the number of 8-bit bytes into which the 
data from fhe start of the current PRU to the last word transmit ted 
are mapped, that is», it is 8 times the number of words from the 
start of the current PRU to the !tast word transmitted. 
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20329 SKIP 


The skip parameter is input for AMPSGET_PARTIAL procedure. Alf 
ordinal vaiues are permitted. 


2203010 STATUS 


This data type is used when calling any of the AMPS procedu’es. 
Status is a record of data returned by the procedure which indicates 
whether the operation performed was successful or whether an et*ror 
was encountered. STATUS.~NORMAL should be set TRUE by the aser 
before calting any AMPS procedure as the procedures do not change 
STATUS. No other fields of this record wiil be referenced by the 
SIMULATED NOS/VE I/70-4- The NOQS/170 INTERFACE will use aii fieids of 
this parameter during the course of generating error messagese 

Since the SIMULATED NOS/VE I/0 system does not provide the user 
program with error processing capabititys a FALSE value of 
STATUS.«NORMAL can not occur. Should SIMULATED NOS/VE I/0 detect an 
error, the Simulation run is haited and a diagnostic message is sent 
to the OUTPUT file (usually the interactive NOS/170 terminal). #4hen 
the NOS/170 INTERFACE detects an error aédiagnostic message is 
generated and sent to the OUTPUT file and the program aborts. Tne 
user may then interrogate the error and restart execution after the 
error is corrected. 


The. user is encouraged to incorporate code for status chec<ing 
into _prograns using the SIMULATED NOS/VE 1/70 system in ant icipvat ion 
of running the programs _on the CYBER 130. _ 


203211 TERM 

Term is an input parameter of AMPSPUT_PARTIAL-~ Al! ordinal 
values are permitted. 
203212 TRANSFER_COUNT 

Transfer count is a parameter returned by AMP$GET_DIR: CT, 
AMPSGET_NEXT,» and AMPSGET_PARTIAL procedure caiits. Transfer_count 
may also be returned by AMPSFETCH_ACCESS_ INFORMATION. 


For files with record_type of AMCSVARIABLE transfer_count is the 
number of 8-bit bytes transferred with this procedure call. 


For “INTERCHANGE” files, with record_tyope AMCSUNDEFIVED, 
transfer_count is defined as the number of 8-bit bytes moved by the 
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current call. 


223213 WAIT 


The wait parameter is an ordinal which is input for an AMPZREA IND 
procedure caite The parameter is not interrogated by thre SIMULATED 
NOS/VE 1/0 system as OSCSWAIT is aiways assumed. 


223214 WORKING _STORAGE_AREA 


Working_storage_area is a pointer to the users data buffer. [ft 
is recommended that the pointer be generated through the use of the 
“#LOC™ function. 


203215 WORKING _ STORAGE_LENGTH 


Working_storage_length specifies the users buffer size in bytes 
for AMPSGET_DIRECT, AMPSGET_LNEXT, and AMPSGET_PARTIAL procedure 
calls. It specifies the number of bytes to transfer for 
AMPSPUT_DIRECT, AMPSPUT_NEXT, and AMPS$PJT_PARTIAL procedure calls. 
It is recommended that the size be generated through the use of the 
“#SIZE™ function for ali AMPS$GET_ type procedure calls. 


For the “interchange™ fiie format this parameter must b2 a 
muitipie of 8, eise an error wiil be returned. 
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20% USING THE SIMULATED NOS/VE_ [70 SYSTEM 


204.1 SOURCE CODE FOR THE SIMULATED NOS/VE I/70 SYSTEM 


2e4eiel CONSTDERATIONS 


SIMULATED NOS/VYE 1/0 must coexist with the NOS/VE operating 
system when both are running on the SIMULATOR. Since NOS/VE does 
not permit duplicate procedure names that are deciared external via 
XDCL in CYBIL or ALIAS in the cpu assembiy tanguage, the SIMULATED 
NOS/VE I/0 names have the “$" (dollar sign) changed to “#" (prxund 
Sign). 

For examptes When using the NOS/170 j$INTERFACE to cali the 
procedure AMPS$OPEN, use the name AMPSOPEN$ but when using the Ci BER 
180 SIMULATOR, use the name AMP#OPEN. [If the name AMPS$BPEN is used 
on the SIMULATOR then the NOS/VE procedure is catied and not 
SIMULATED NOS/VE 170. 


2e4e102 INCLUDING SOURCE CODE IN A MODULE 


To interface the SIMULATED NOS/VE I/70 system, the user*s CfBIL 
program must include the relevant procedure cail declarations. <iach 
procedure is contained in a separate common deck of code which the 
user may inctude in the source program module through the us2 of 
*CALL statementse Each procedure contains the necessary nested call 
{*CALLC) statements to inctude any required “type” or “constant®™ 
definitionse Common deck names are the same regardiess of whether 
the NGS/170 INTERFACE or the SIMULATOR are usede The fotliosing 
table gives the name of each procedure common deck and identifies 
the defined procedure. 
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TABLE of the SIMULATED NOS/VE 1/0 systen COMMON DECKS 


COMMON DECK PROCEDURE NAME 

AMXCLSE AMPSCLOSE 

AMXFTCH AMPSFETCH 

AMXFNFO AMPS$FETCH_ACCESS_INFORMATION 
AMXFILE AMP$FILE 

AMXGF AT AMPSGET_FILE_ATTRIBUTES 
AMXGETD AMPSGET_DIRECT 

AMXGETN AMPSGET_NEXT 

AMXGETP AMPS$GET_PARTTAL 

AMXOPEN AMPSOPEN 

AMXPUTD AMPSPUT_DIRECT 

AMXPUTN AMP$PUT_NEXT 

AMXPUTP AMPS PUT_PARTIAL 

AMXRE WD AMPSREWIND 

AMXSEEK AMPSSEEK_DIRECT 

AMXSTOR AMPSSTORE 


2e4eie3 SIMULATED NOS/VE I/0 COMMON DECKS 


SIMULATED NOS/YE I/0 common decks are found on the “CY8ID MN” 
source program tiobrary. SES.»GENCOMP wilt find the required common 
decks when the “CYBICMN™ keyword is part of the SES procedure c3il. 
Remember that these common decks have AMP# procedure names. 


Zeh4eiee NOS/170 INTERFACE COMMON DECKS 


Tne NOS/170 INTERFACE requires a different set of 
than the SIMULATED NOS/VE I/0 interfacee These common decks rave 
the same name as their SIMULATED NOS/VE I/70 counterparts out are 
found on the “CYBCCMN™ ftibrarye These common decks have the iMP# 
procedure namese They may be obtained by using the “CYBCD MN“ 
keyword on the SES.GENCOMP statement. 


common d2cks 


224.2 OBJECT PROGRAM LINKAGE TO AMPS 


2eh4e2el SIMULATED NOS/VE I70 OBJECT PROGRAM LIBRARY 


The NOS/VE object program is tinked and prepared for toading ito 
the CYBER 188 SIMULATOR by the Virtual Environment Linker and the 
CheckPoint Fite GENerator. These programs are normally executed by 
the command SES.~GENCPF. This is not the onty method to presare 
programs for input to the SIMULATOR. The user is directed to the 
ERS documents for the Virtual Environment Linker (VELINK) and = the 
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Virtual Environment Generator (VEGEN) for additional information, 

The object time programs for SIMULATED NOS/VE I/0 are found on 
the “CYBILIB” tibrary. GENCPF has the keyword parameter “CYBI_1IB" 
to provide access to this tibrary. 


2e4e202 NOS/170 INTERFACE OBJECT PROGRAM LIBRARY 


The NOS/7170 INTERFACE object modules may be obtained from fhe 
“CYBCLIB™ library. The user should prepare the object program for 
execution be creating a NOS/170 “load file”. This process is 
performed by the SES procedure SESeLINKI70. LINKi70 nas the keyvord 
“CYBCLIB™ availabie to link CYBIL object time programs. The obj ect 
programs for the NOS/170 INTERFACE are oart of this tibrary. 
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Clad 


205 NOS/VE 1/0 COMMON DECK LISTINGS 

This section lists the contents of each common deck of source 
code for the NOS/VE system which is supported by the SIMULATED } 
NOS/VE I/0 systeme H 
22521 PROCEDURE COMMON DECKS } 


These common decks must be inciuded by the user in order to -:alt 
the simutatead procedure. 


a lt 


2eSetoi ANXCLSE (AMPSCLOSED 


The purpose of this request is to terminate file access. If the} 
file_disposition is amc$task_!ocal, the file is returned fo fth2 system.} 
If the fite_disposition is amc$}ob_global,s any modified data ix memory} 
is fiushed to the assigned devicee Any outstanding no_wait physical} 
accesses are altiowed to complete before control returns to the catter} 
of this request.} 

This request is optionat. Task termination performs a ciose »9n ail files} 
opened by the task.} 

If the preceding operation on the file was an output and the tabel_type} 
is amcS$tabetted, a standard ANSI EQF tabel group is written. If tnet 
fabel_ type is amc$untabelied and the file is assigned to a tap: devices} 
two tapemarks are written.} 

If a tabet exit procedure has been specified, controi will b2 passed} 
to this procedure whenever a standard ANSI tabel matching the ltadel_options} 
attribute is processed.} 


by amp$ciose if the file _disposition is amc$task_locai3 otherwise, thet} 
filte is routed at the RETURN command/request or job terminatior.} 

Tne filte_identifier established by a preceding ampf$oren requ2st is} 
invalidated by this request. 


AMP$CLOSE (FILE_IDENTIFIER, STATUS) 
FILE_IDENTIFIER? (input) This parameter snecifies the file acc2ss 


identifier establtished when the file was opened. 


STATUS: (output) This parameter specifies tne request status 
3 


Sea Ae Oe See eS er yr 


{ * amxcise} 
PROCEDURE [XREF] amp#ctose ALIAS *amxctise* (file_identifiers: 
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If the file nas been routed with the defer option, the file sil’ be routed} 
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amt$fite_identifier>3 
VAR status’ ost$status) 3 


*callic amdgiob 
*callc osdstat 


2e5eie2 AMXFILE CAMPSFILE) 


The purpose of this request is to describe a file prior to aztcesse 
The description of the file consists of one or more file attrirdutes. 
Each file attribute has an appropriate default vaiue depending upon 
the type of file to be accessed. File attributes are preserved with 
the fite.e Therefore, file attributes need onty be specified wh2n the 
file is createds and then onty if the default is not desired. 

If the user has control permission on an existing file, this request 
may be used to permanently change the file*s attributes. The crange 
will not take ptace until the file is successfully opened. 

If the user does not have control permission on an existing files 
this request may be used fo override the fite*s attributes until the 
task terminatese These changes are not preserved with the file. 

Repeated amptfite requests may be made against the same local file. 
Tne requests are additivee When two raquests redefine the same 
attribute, the most recent definition is used. 

File attributes defined on a preceding FILE command wili override 
those specified on this request. However, the task can prevent 
FILE command processing by quoting the file _command_processing 
attribute on this request. 


AMPS$FILE (LOCAL_FILE_NAME, FILE_ATTRIBUTES, STATUS) 


file for which attribute values are being supplied. 


FILE_ATTRIBUTES: (input) This parameter specifies one or more fiie 
attribute-value pairs. 


STATUS: (output) This parameter specifies the request statuse 


{C * amxfile} 
PROCEDURE {XREFI] amo#fite ALIAS *amxfile* (locat_filte_name? 
amt$filte name 3 
file_attributes: amt$fite_attributes; 
VAR status: ost$status) 3 
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LOCAL_FILE_NAME3 Cinput) This parameter specifies the name of the toca! 
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220 SIMULATED NOS/VE T/0 INTERFACES 


Ze 


Sele2 AMXFILE (AMPSFILE) 


*¥calic amdfatt 
*callc amdgiob 
¥*¥calic amdname 
¥calic osdstat 


\ 
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250103 AMXENFO (AMPSFETCH ACCESS INFORMATION) 


The purpose of this request is to retrieve the value of one or 
more items of file information subsequent to the file being op2ned. 


AMPSFETCH_ACCESS_INFORMATION (FILE_IDENTIFIER, ACCESS_INF ORMATION, 
STATUS) 


FILE _ IDENTIFIER? Cinput) This parameter specifies the file acc2s5s 
identifier established when the file was opened. 


ACCESS_INFORMATION? Cinput-output) This parameter specifies on2 or more 
items of file access information to be returned. 


STATUS? (Coutout) This parameter specifies tne request statuses 


* amxfnfo} 

PROCEDURE CXREF] amp#fetch_access_information ALIAS *amxfnfo* 
(filte_identifier: amt$S$fite_identifiers; 
VAR access_information: amt$access_information;3 
VAR status: ost$status) $ 


*calic amdfnfo 
*caiic amdgtob 
*¥calic osdstat 


26 
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Sele4 AMXETCH CAMPSFETCH) 


The purpose of this request is to retrieve the vatue of one or 
more file attributes subsequent to the file being opened. “This 
request is similar to amptget_file_attributes except the file_identifier 
is used to distinguish from among what may be severai instances 
of open of the same file. 


AMPSFETCH (CFILE_IODENTIFIER, FILZ_ATTRIBUTES, STATUS) 
FILE_IDENTIFIER: (input) This parameter specifies the file acc2ss 
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identifier estabtisned when the file was opened. 


FILE_ATTRIBUTES: Cinput-output) This parameter specifies one ot more 
attributes whose vaflue is sought. 


STATUS: (output) This parameter specifies the request status. 


Fn on Bs Oh on Ee Be | 


% 


* amxftfch} 

PROCEDURE [XREF}] amo#fetch ALIAS *amxftch® (file_identifiers: 
amt$fite_identifier$ 
VAR file_attributes: amt$filte_attributes$ 
VAR status: ost$status) 3 

*¥calic amdfatt 

*calic amdgiob 

*calic osdstat 


2e5ei05 AMXGETD (AMPSGET OLTRECT) 


The purpose of this request is to retrieve a record from a file opened} 
With amctrecord access and file_organization of amc$byte_addressable.} 

The tocation of the record is specified by the byte_address »darameter.} 

The record is moved from buffers maintained by the access method to the} 
user"*s working_storage_area. Data movement atways begins at a *ecord } 
boundary and continues until either the end of the record or tre end of} 
the working_storage_area is encountered, whichever occurs first. If the} 
entire record is not moved, an abnormal STATUS wittl be returned. In this 
event, subsequent amp$get_partial requests may be issued to obtain the} 
remainder of fhe record.} . 


AMPSGET_DIRECT (FILE_IDENTIFIER, WORKING _STORAGE_AREA, 
WORKING_STORAGE_LENGTH, RECORD_LENGTH, TRANSFER_COUNT, 
BYTE_ADDRESS», FILE_POSITION, STATUS) 


FILE_IDENTIFIER: Cinput) This parameter specifies the file acc2s5 
identifier estabtisnhed when the file was opened. 


WORKING_STORAGE_AREA3 (input) This pafameter specifies the use~*s working 
storage area. 


WORKING_STORAGE_LENGTH3 (input) This osarameter specifies the maximum 
number of bytes to be moved into the working storage areae The 
vaiue is typicailty set at the maximum record size defined for the 
file. 


COMPANY PRIVATE 


2- 30 


COC SOFTWARE ENGINEERING SYSTEM 


01/257 BB 


ERS for SIMULATED NOS/VE PROGRAM INTERFACES 


POD TA TO SAP PUD PU PUD LD UE PUP HP MD PD LP LAD CD ENS OOD AD A IP ME TU OD TD LP TD TP SEP A CU TBP ERE OE TA TP TNE TD OD A HE HD OE PW Ta DP He OP ENP ONE TY A TEP TP IND HOE I CU OD Pee OE ROT FO 


Ze 


2s 


0 SIMULATED NOS/VE 170 INTERFACES 
50125 AMXGETD (AMP SOET_ OTRECT) 


fs Man an Micon Bian Ws Oi ae Bt on oe cen Bm a os ae 


RECORD “LENGTHS (output) This parameter specifies the actual size of the 
record as it exists on the file. 


TRANSFER_COUNTS: (output) This parameter specifies the number of bytes 
moved to the user*s buffer. 


BYTE ADDRESS: Cinput?) This parameter specifies the file byte address 
of the record to be retrieved. 


FILE POSITIONS (output) This parameter specifies the position »f the 
file following this request. It can be used to recogniz2 end 
of record status. 


STATUS: Coutput) This parameter specifies the request status. 


* amxgetd} 
PROCEDURE CXREF1] amp#get_direct ALIAS *amxgetd* (file_identifi2r?2 
amt$fiie_identifier$ 
working_storage_area: ~celi; 
working _storage_length: amtS$working_storage_iength$ 
VAR record_tength! amt$max_record_length3 
VAR transfer_count: amt$transfer_count $3 
byte_address: amft$fiite_byte_address3 
VAR file_position:’ amttfilte_position; 
VAR status: ost$status) 3 


*¥cailic amdgtob 
*calic osdstat 


2 


5e1ie6 AMXGETN CAMPSGET NEXT) 


The purpose of this request is to retrieve the next record from a} 
fite opened with access_tevel of amc$recorde The ltocation of tre } 
record is the current byte address of the file.} 

This request may be issued regardiess of the file_organization.+} 

The record is moved from buffers maintained by the access method to the} 
user"s working _storage_area. Data movement always begins at a *eacord } 
boundary and continues until either the end of the record or trie end of} 
the working storage _area is encountered, whichever occurs first. If thet} 
entire record is not moved, an abnormal STATUS wiil be returned. In this} 
event, subsequent amosget_oartial requests may be issued to obtain thet 
remainder of the record.} 


AMPSGET_NEXT (FILE_IDENTIFIER, WORKING_STORAGE_AREA, 
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WORK ING_STORAGE_LENGTH, RECORD_LLENGTH, TRANSFER_COUNT, 
BYTE_ADDRESS, FILE_POSITION, STATUS) 


FILE IDENTIFIERS Cinput) Tnis parameter specifies the file acc2ss 
identifier established when the file was opened. 


WORKING_STORAGE_AREA® Cinput) This parameter specifies the use**s working 
storage area. 


WORKING_STORAGE_LENGTH: (Cinput) This oarameter specifies the 
maximum number of bytes to be moved into The working sto*age area. 
The vaiue is typically set at the maximum record size defined for 
the file. 


RECORD_LENGTHs (output) This parameter specifies the actual size of 
the record as it exists on the file. 


TRANSFER_COUNTS (output) This parameter indicates to the user the 
number of bytes moved to the user®*s working storage area. 


BYTE_ADDRESS: foutput) This parameter specifies the file byte address 
associated with the record retrieved. This vaiue is only returned 
for files on mass storage devices. 


FILE_POSITIONS (output) This parameter specifies the oosition »f the file 
foltowing this request. {t can be used to recognize end of record 
Status. 


STATUS: fCoutput) This parameter specifies the request status. 


{ * amxgetn} 
PROCEDURE [XREF] amp#get next ALIAS “amxgetn* (filte_ident ifier? 

amt$fite_identifiers 
working _storage_areas “ceil 5 
working storage_fength? amtSworking_storage_length3; 
VAR record_tength? amt%max_record_tength3 
VAR transfer_count:? amt$transfer_count $ 
VAR byte_address: amttfiie_byte_address3$ 
VAR file_nosition: amt$fite_position; 
VAR status: ost$status) 5 


¥calic amdgtob 
*calic osdstat 
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2eS5eie? AMXGETP (AMPSGET PARTIAL) 


The purpose of this request is to retrieve the next portion »f a} 
record from the current location of a file opened with amcftrecord access.} 

Repeated requests may be required to move the whole record.} 

Tne data is moved from buffers maintained by the access method to the} 
user’*s working _storage_area.} 


AMP$GET_PARTIAL (FILE_LIDENTIFIER, WORKING_STORAGE_AREA, 
WORK ING_STORAGE_LENGTH, RECORD_LENGTH, TRANSFER_COUNT, 
BYTE_ADDRESS, FILE_POSITION, SKIP_LOPTION, STATUS) 


FILE_IDENTIFIERS (input) This parameter specifies the file acc2ss5 
identifier estabiished when the file was opened. 


WORKING_STORAGE_AREA? {finput) This parameter specifies the use*"*s workina 
storage area. 


WORKING _STORAGE_LENGTH: (input) This sarameter specifies the number 
of bytes to be moved into the working storage area. 


RECORD_LENGTHs (output) This parameter wili specify the actual size of 
the record as it exists on the file when the tast data of the 
record is transferred. It witt be cumulative for a seri2s of 
partial record operations within a record. . 


TRANSFER_COUNTs {foutput? This parameter specifies the number 
of bytes moved to the user’*s working storage area. 


BYTE_ADDRESS$ (output) This parameter specifies the file byte address 
of the beginning of the record being processed as a seri2s of 
partial recordse This vatue is onity returned tor files #nich reside} 
on mass storage devicese It is not updated to point 
to the beginning of each partial transfer. 


FILE_POSITION: output) This parameter specifies the position of the file 
following this requeste It can be used to recognize end of record 
status. 


SKIP_OPTIONS (input) This parameter soecifies whether to advanzre to the 
beginning of the next record before transferring data} 
{amc$skip_fto_eor) or to start the transfer at the current position} 
(amc$no_skiop). If the current position is beginning of r2cord} 
then this option has no effect.} 


STATUS: (output) This parameter specifies the request status. 
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{ * amxgetp} 
PROCEDURE [XREF] amp#get_partiat ALIAS ‘*amxgeto*® (file_identifiers 

amt$file_identifiers$ 
working _storage_areas “cell; 
working stforage_fength? amtfworking_storage_fength3; 
VAR record_iength3 amt$max_record_length$ 
VAR transfer_count: amt$transfer_count$ 
VAR byte_address? amt$file_byte_addtess; 
VAR file_position? amtSfile_position; 
skip_option? amt$skip_option$ 
VAR status’: ost$status) $ 


*cailc amdgtob 
*cailc osdstat 


2050108 AMXGFAT (AMPSGET FILE ATTRIBUTES) 


The purpose of this request is to altow a user to interrogate 
file attributes maintained by the access method for a ftocal fille. 

File attributes may be defined for a file in the foliowing ways3 

« FILE command 

e ampt$filte request 

» access method supptied default 

e amnp$Sstore request 


File attributes, once establisheds are preserved with the file. 
These become the defauit whenever the file is accessede Prese*ved 
attributes may be redefined as mentioned above. 

Tnis request returns fite attribute vatues which result from the 
precedence refationships of FILE commands amosgfilte request, preserved 
attributes and access method defaults. 

This request is intended to be used prior to issuing an amosfile 
or amptopen request. Used in this manners this request allows an 
application to determine whether a file exists.» and if it does exist, 
whether the known file attributes are consistent with the proc2ssing 
to follow. 

This request may be issued at any time and will return the file_ 
attributes which would be in effect if the fite were fo be opered 
immediately following this request. 

If the fite is not tocal, the file_attributes parameter is not 
modified by this request. 


AMPSGET_FILE_ATTRIBUTES (LOCAL_FILE_NAME, FILE_ATTRIBUTES , 
LOCAL_FILE, EXISTING_FILE, CONTAINS _DATA, STATUS) 
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LOCAL_FILE_NAMES (input) This varameter specifies the name of the tocal 
file whose attribute values are sought. 


FILE_ATTRIBUTESS (input-output) This varameter specifies one o* more 
file attributes whose vaiue is sought. 


LOCAL_FILE? (output) This parameter specifies whether the file is 
local to the task. A file is said to be tocali if a preceding commands 
or request, has been issued naming the fitee. 


EXISTING FILE? (output) This parameter specifies whether the local file 
has ever been opened. 


CONTAINS _ DATAS (output) This parametet specifies whether an existing 
file has data (nonnull in tength). 


STATUS: (output) This parameter specifies tne request status. 


oo Be Be Sco oe ee oO oe DB eB ee Oe Be 


{ * amxgfat} 
PROCEDURE EXREFI] ampé#get_file_attributes ALIAS “*amxgfat* (local _file_name3 

amt$file name 
VAR file_attributes:3 amt%file_attributes} 
VAR local_fite? boolean; 
VAR existing _fiie? bootlean$ 
VAR contains_data? boolean; 
VAR status’ ost$status) 3 


*calic amdfatt 
*calic amdgtob 
*calic amdname 
*¥calitc osdstat 


2e5eie9 AMXOPEN CAMPSOPEN) 


{ The ourpose of this request is to prepare a toca! file for aztcess.} 

{} 

{ If the file exists and is permanent, this reguest must be pr2ceded} 

{ by an ATTACH or GET command or request to make the file tocal to the job.} 
{} 

{ File Attributes: } 

{} 

{ Requests such as amp$fite and amptget_filte_attributes are optional} 

{ prior to the cali to amp$open.e File attributes defined at the time a file} 
{ is created are preserved with the fite$ these become the default when thet 
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{ file is opened, untess overridden. The FILE command and the amo$tiie} 

{ request may be used to override tne default file attributes. At open, 

€ the attributes quoted on the FILE command will prevail over those named} 
{ on an ampsfite request whose attributes will in turn orevail over those} 
{ preserved with the file. Use of the FILE command attributes may be} 

{ controtted with tne amoptfiie request.} 

{} 

{ Label Processing3} 

{} 

{ Standard ANSI ftabets are verified at open. If the user has srvecified a} 


{ tabel_exit_procedure with the amp$file request, control will be passed} 
{ to this procedure whenever a tabet matching the tabel_options attribute} 
{ is found.} 

C3} 

{ Instances of fiie3+} 


ry 
gd 


An access method request which has ltocai_file_name as the fist format} 
parameter may be issued regardiess of whether the file is open. Alt other} 
requests may oniy be issued after a successful opene Ampfopen *eturns} 

a FILE_IDENTIFIER which identifies an instances of a file. Earth} 
open of a file creates a unique instance of a file which is given} 
a unique file_identifier.} 

Each instance of a file is described by separate tables to allow} 
independent, paraite! access to multiple instances of the file by a task,} 
by multiple tasks in the same job, or by tasks in different jo0os.} 

Onty permanent files may be shared among jobs in the systems Any local} 
file may be shared by tasks in the same Jjob.} 

Restrictions are placed upon a task opening the same file more than once} 
without an intervening ciose» These restrictions depend upon the} 
device _ciass assigned to fhe file and tne access_mode reaquested.} 

Tape files cannot be multioty opened. Disk and interactive files} 
may be multiply opened.} 

Each instance of a muttiply opened disk file shares a common mass} 
storage allocation. However, each accessor has a unique file_ijientifier} 
with which a unique ltocation within the file ( current _by te_adiress,} 
file_positions votume_number, etc.) is maintained by the access method.} 

Each instance of open of the same file must auote compatibte} 
access_ievel, record type, and biock_type.} 

Open verifies that the access_ieve!l quoted by one instance of open is} 
compatible with previous instances of open for the file in the same job.} 
Record access and segment_access may occur in paraiflelt on the same file,} 
if the two instances of open are in different tasks. Physical_access can} 
coexist with neither record_access nor segment_access.} 

Open verifies that the record_type quoted by one instance of open is} 
compatible with previous instances of open in the same jobe An instance of} 
open with access_mode of only pofc$read is allowed to specify anctundefined} 
regardiess of previous record_type specificatione No other com inations} 
of record_type may coexist.} 
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C Open also verifies that the block_type quoted by one instanc2? of open is} 
{ compatibie with previous instances of open in the same job. An instance} 

{ of open with access_mode of ontiy pfc$read access is allowed to specify a} 

{ biock_type other than the prevailing one} 

{ Oniy permanent files may be shared among jobs in the system. Any} 

{ focal file may be shared by tasks in the same job.} 

{} 

{ File _sharing:} 

{} 

{ A task may insulate itself from conflict caused by other tas<s in the} 


{ same job sharing the jiocal file by using the Job_iocal_share_mode attribute} 
{C of the amptsfile request to restrict snared usage of the filte.} 

{} 

{ Segment_access: } 

{} 

{ If segment access is quoted on an open requests the task must obtain a} 
{ pointer to the segment in order to access if. See the amo$get_segment_} 
{ pointer request.} 

{} 

{ Open_positioning:} 

(} 

{ A task may use the open_position attribute of the amptfile} 

{ request to cause the file to be positioned by ampfopen to BOI,} 

{ EOI or a partition bpoundary.} 

{} 


ta 


Filte_disposition:} 


Files opened by a task are automaticaliy ctosed at its termiration. lise of} 
the ampt$ctose request is optional.} 
Prior to opens the fite_disposition attribute of the ampSfil2 request} 
may be used to specify when file disposition is to occur. A} 
fite_disposition of amc ftask_tocal will cause disposition to otcur} 
at amp$close or task terminatione A file_disposition of} 
amc$job_giobal wili deitay the disposition of the file until joo} 
terminatione The RETURN command/request causes immediate} 
disposition and overrides the file disposition selected.} 


AMPSOPEN (LOCAL_FILE_NAME, ACCESS_LEVEL, FILE_LIDENTIFIER, STATUS) 


LOCAL_FILE_NAMES (€ input) This parameter specifies the name of the tocai} 
file to be opened for access.} 


ACCESS_LEVEL3 (input) This parameter specifies the means by which the} 
fiie wilt be accessed.} 


FILE_IDENTIFIERS (output) This parameter specifies tne file aczess} 
identifier which is assigned to this instance of open of the jiocal} 
file.} 


Fs OA a TO ae aon YO te TO ae, es Toon YO ee YO ae Be as ee se Doe te De 2 
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{ 
€ STATUS’ (ouput) Tris parameter specifies the request status.} 
{ 


{ * amxopen} 
PROCEDURE [(XREF] amp#open ALIAS “amxopen* (Clocal_file name? 
amt$fite_name3 
access_flevei: amtSaccess_levet;5 
VAR file_identifiers: amttfile_identifier3 
VAR status’ ost$status) 3 


¥calic amdgiob 
*¥calic amdname 
*callc amdopen 
¥caiic osdstat 


5e1210 AMXPUTD (AMPS$PUT DIRECT) 


The purpose of this request is to transfer a record from the user's} 
working storage area to a file opened with amc$record access_i2vel} 
and amc$byte_addressabie file_organization.} 

If the record_type is amc$ansi_fixeds the record is padding_*haracter} 
filled, if necessary.} 

This request will establish a new end of information (EOI) if the sum} 
of byte_address and working_storage_iength exceeds the current EOI.} 
It is the users responsibility to ensure that a record being 
replaced is the same tength as the otiginal. 


AMPSPUT_DIRECT (FILE_IDENTIFIER»s WORKING _STORAGE_AREA, 
WORK ING_STORAGE_LENGTH, BYTE_ADDRESS, STATUS) 


FILE IDENTIFIERS (input) This parameter specifies the file acc2ss5 
identifier estabiished when the file was opened. 


WORKING_STORAGE_AREAS (input) This parameter specifies the user's 
working storage area that contains the record to be trans ferred. 


WORKING_STORAGE_LENGTHS (input) This parameter specifies the nimber 
of bytes to be transferred. 


BYTE_ADDRESS3 (input) This parameter specifies the file byte address 
of where the record is to be placed in the file. 


Ze 
{ 
{ 
C 
{ 
{ 
{ 
t 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
C 
£ 
{ 
{ 
{ 
{ 
{ 
{ 
C 
C 
{ 
{ 
{ STATUS: (output) This parameter specifies the request status. 
{ 
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{ * amxputd} 
PROCEDURE [(XREF] amp#put_direct ALIAS “amxputd* (file _identifi.r?3 
amt$filte_identifiers 
working _storage_areasz “~cell;5 
working storage _ lengths amt$working_ stforage_tength; 
byte_address? amt$file_byte_address}3 
VAR status: ost$status) 5 


*cailic amdgiob 
¥callc osdstat 


2e5ele11 AMXPUIN (AMPSPUT NEXT) 


The purpose of this request is to transfer a record from the user'*s 
working storage area to the “next” tocation in a file opened with} 
amce$record access_ltevetl.} 

If the record_type is amctSansi_fixeds the record is padding_*haracter} 
filled, if necessary.} 

This request wilt! unconditionally establish end of information (EOI) } 
when issued on a file opened with amctsequentiali file _organizat ion.} 


loyd 


AMPSPUT_NEXT (FILE_IDENTIFIERs WORKING _STORAGE_AREA, 
WORKING_STORAGE_LENGTH, BYTE_ADDRESS, STATUS) 


FILE IDENTIFIERS tCinput) This parameter specifies the file acc2ss5 
identifier estabitished when the file was opened. 


WORKING_STORAGE_ AREAS (input) This opatameter specifies the use*"*s workina 
storage area that contains the data to be transferred. 


WORKING_STORAGE_LENGTHS (input) This sarameter specifies the namber 
of bytes to be transferred. 


BYTE_ADDRESS$ (output) This parameter specifies tne fite byte address 
estabt ished for the beginning of the record. This address 
may be used on fufure requests fo randomly access the retord. 
This vatue is onity returned for fites on mass storage devices. 


STATUSS (output)? This parameter specifies the request status. 


{ * amxputn} 
PROCEDURE {XREF] ampffout_next ALIAS “*amxputn® (file_ident ifier? 
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2e5eleil AMXPUTN {(AMPS$PUT _NEXT) 


amt$fite_identifier3 

working_storage_area? “celi$ 

working storage_ftength? amt%working_storage_liength3 
VAR byte_address:? amttfiile_byte_address; 

VAR status: ost$status) 3 


*cailic amdgtob 
¥calic osdstat 


Ze 


Selei2 AMXPUTP (AMPZPUT PARTIAL) 


The purpose of this request is to transfer a partial record from the 
user*s working storage area to the “next” tocation in a file odened} 
with amc$record access_tevel.} 
This request may not be issued if the record_type is amc$ansi _vwariabdte} 
or amcSansi_fixed.} 
This request is provided for exceedingiy long records which sould} 
otherwise require an impractical working storage iength.} 
Tne first portion of the record is supplied with the amctstart} 
term_option.e. The amc$start may be issued when the file_positi»s.} 
is amc$mid record to terminate a previous record white startin3z a} 
new onee This request sets the file_position to amc$mid_record.} 
Intermediate portions of the record are transferred with a t2rm_option} 
of amc$continuee. This term_option may onty be issued when the file _vosition?} 
is amc$mid_record. File_position remains amc3mid_record.} 
The finai portion of the record is supplied with amcS$termina te} 
term_option.} 
This term_option may be issued when the file_position is amc$mid_record or} 
amc$eor. In the tatter case, a full record is being supplied. This request} 
results in an amcteor file_position.} 


AMPSPUT_PARTIAL (FILE_IDENTIFIERs WORKING_STORAGE_AREA, 
WORKING_STGRAGE_LENGTH, BYTE_ADDRESS, TERM_OPTION, STATUS) 


FILE_IDENTIFIERS (input) This parameter specifies the file acc2ss 
identifier established when the file was onened. 


WORKING _STORAGE_AREA’ (input) This parameter specifies the use**s working 
Storage area that contains the data to be transferred. 


WORKING _STORAGE_LENGTHS {input) This osarameter specifies the niumber 
of bytes to be transferred. 


BYTE_ADDRESS$ (output) This parameter specifies the byte address 
established for the beginning of the record. This address 
may be used on future requests to randomty access the retord. 
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re 


Fae 


#c 


This vaiue is only returned for files on mass storage devices. 


TERM_OPTIONS (finput) This parameter specifies which portion of the record} 
is being supplied.} 


STATUS: (Coutput) This parameter specifies tne request status. 


* amxputo} 
PROCEDURE {(XREF] amp#put_Ppartiai ALTAS *amxoutp* (file_identifier: 
amt$file_identifiers 
working _storage_area:s “~cell5 
working _storage_tength? amt$working_storage_tength3 
VAR byte_address:? amttfile_byte_address:; 
term_option: amt$term_option3 
VAR status? ost$status) 3 


allc amdgtob 


*calic osdstat 


Ze 


{ 
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{ 
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Seiei3 AMXREWD (AMPSREWIND) 


The purpose of this request is to reposition to the beginning of} 
information of the file. This request nas meaning onty for fil2s opened} 
with amc$record or amct$ohysical access_tevel.} 

Any modified data residing in memory is fiusned to the currert volume.} 
Any outstanding no_wait requests are completed before the repositioning} 


is attempted.} 


If the fabel_type is amc$liabetted and the preceding operation was an} 
output, a standard ANSI EOF ftabel group is written. If the HDRL ltabel} 
corresponding to this file is not on fhe current volume, the current} 
volume is dismounted and the volume containing the beginning of tine file} 
is mounted. The file is positioned beyond the verified HDR tab2! group.} 

If the tabel_type is amcfuntabelted or amc$non_standard_label led, thet 
current volume is rewound.} 

If a tlabel_exit_procedure was specifieds control wili be passed to this} 
procedure if tabeis matching the tabel_options attribute are ericountered} 
during this process.} 


AMPSREWIND (FILE_IDENTIFIER, WAIT, STATUS) 


FILE_IDENTIFIERs (input) This parameter specifies the file acc2s5 
identifier estabiished when the file was opened. 


WAITS (input) This parameter specifies the action to be taken 
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{ 


if the rewind can not be completed without causing 
a physical I/0 operation to be submitted. 
wait: Don*t return control until the operation is comol ete. 
nowaits: Return control to the user even though the operation 
may not be complete. The AMPSFETCH_LACCESS _INFIRMATION 
request may be used to determine the tast_op_ status.» 


STATUS? (output) This parameter specifies the request status. 


* amxrewd} 

PROCEDURE CXREF] amp#rewind ALIAS “*amxrewd* (fite_identif ier: 
amt$file_identifier5 
wait? ost$wait$ 
VAR status: ost$status) $ 


*calic amdglob 
¥calic osdwnw 
*calic osdstat 


2e 


Seileit AMXSEEK CAMPSSEEK DIRECT) 


The purpose of this request is to change the current_byte_adiress of} 
a file opened with amc$record access_leveli and amcSbyte_address able} 
file_organization. This request does nothing to change the physical} 
position of the mass storage device assigned to the file. This request} 
is provided to altow the ftocation in the fite to be established prior} 
to issuing an ampé#get_next or amp#get_partiai. Note that the r2quests} 
such as amp#get_direct and amp#get_partial_direct perform an inplicit} 
seek_direct followed by record movement.} 


AMPSSEEK_DIRECT (FILE_IDENTIFIER, BYTE_AGDRESS, STATUS) 


FILE_IDENTIFIERS (input) This parameter specifies the file acc2s5 
identifier estabiished when the file was opened. 


BYTE_ADDRESS? (input) This parameter specifies the file byte address of 
the record to be located. 


STATUS: (output) This parameter specifies the request status. 


Camxseek} 


PROCEDURE I[XKREF] amp#seek_direct ALIAS "*amxseek" (filte_identifier: 
amt$file_identifier; 
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byte_adresss’ amt$fiite_byte_address; 
VAR status? ost$status) 3 


*callec amdgiob 
*calic osdstat 


20501015 AMXSTOR (AMPSSTORED 


{ 

{ The purpose of this request is to change the vaiue of one or more 
{ file attributes. This request may onty be issued after the fii2 has 
{ been opened. 

: & If this request is issued by a user with contro! permission 3» the 
{ file, any stored attributes will be preserved with the file. If the 
{ user does not have controt permissions the supplied attributes witl 
{ be used to describe the task*s access to the fite but will be Jiscarded 
€ when the task terminates. 

{ 

{ AMPS$STORE (FILE_IDENTIFIER, FILE _ATTRIBUTES, STATUS) 

t 

{ FILE_IDENTIFIERS Cinput) This parameter specifies the file acc2ss 

{ identifier estabitished when the file was opened. 

{ | 

{ FILE_ATTRIBUTES!: (input-output) This parameter specifies one o* more 
{ attributes which are to be preserved with the file. 

{ 

{ STATUS’ (output) This parameter snecifies the request statuSe 

{ 

{ * amxstor} 


PROCEDURE {(XREF] amp#store ALIAS “*amxstor’® (file_identifiers 
amt$fite_identifier3 
VAR file_attributes: amt$store_attributes}3 
VAR status’ ost$status) $ 


*calic amdgtob 


¥*calic amdstor 
*calic osdstat 


2e5e2 NESTED COMMON DECKS 


These common decks defin the data fypes and constants used by NOS/VE. 
automaticaity inctuded through nested cailis in tne procedure comnon decks. 
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2e5e2e1 AMDBLKH 


 € * amdbikh} 
CONST 
amc$max_obfock_ header 
amc$min_bitock_header 


128 {bytes} , 
16 Cbytes} 3 


i ti 


TYPE 
amt$biock_header_length = amctmin_bl ock_header .«. amc$max_block_header, 
amt$biock_header_type = famcttapemark_biocks amc$data_biock), 
amt$S$btock_stafus = (amc$no_error, anc$recovered_errory, 
amc$unrecovered_error), 
amt$pack_bdblock_header = record 
header _tyne: amt$biock_header_typ2, 
biock_flength?: amtSmax_ biock_lengths 
previous_length? amt$max_biock_length, 
unused _bit_count: amtSunused_bit_count, 
recendse 
amtSunpack_ bliock_header = record 
header_type: amt$biock_header_typ2, 
biock_length_as_read: amt$max_biock_length;, 
block_iength_as_wriften? amt$max_biock_length, 
previous_tength? amt$max_bdiock_ltength, 
unused_bit_count: amt$unused_bit_count, 
biock_status’s amtSbliock_status, 
recends 
amt$user_info_iength = 0 e+ lamc$max_biock_header - amctmin_>» lock_header) 3 


*calic amdgtob 


205e2e2 AMDEATT 


{ * amdfatt} 
TYPE 
amt$fiie_attributes = array[ * 1] of amt$file_attribute, 
amt$fite_attribute = record 
source foutput} $$ amt$attribute_source, 
case key Cinput} © amtsSfile_attribdute_keys of 
One of the following attributes is output by amp$get_file_attributes or} 
ampt$fetch; exactiy which one is determined by the case selecto*. The caiter} 
of amp$fite must input one of the fotlowing attributes designated by the} 
case setector.} 
=amc$access_mode= 
access_mode: pfts#usage_selectiorss 
=amc$biock_header_length= 
block header _tength? amttbiock_header_ftengths 


ams es 
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=amctbtiock _type= 

biock_type? amt$biock_type, 
=amc$character_conversion= 

character_conversion’ boolean, 
zamesciear_space= 

clear_spaces ost$ciear_file_ space, 
=amcterror_exit _procedure= 

error _exit_procedure? amt$error_exit_procedurey, 
=amcs$error_options= 

error_options: amt$Serror_options, 
=amc$file_command_processing= 

file_command_processing3 boolean, 
=amc$file content= 

file_content: amt$filte_content, 
=amc$fite_disposition= 

file disposition: amt#fiie disposition, 
=amc$fite_limit= 

file _Uimit: amtS$fiite_limit, 
=amcS$fite_organization= 

file_organization:? amt$fite_organization, 
=amc$horizontal_print edensity= 

horizontal_print_density: amtS$horizontal_print_density, 
=amcSinternal_code= 

internal_code: amtSinternal_code, 
=amc$ job_local share_mode= 

‘job_iocai_share_mode: pft$share_selections, 
=amc$tabet_exit_orocedure= 

label _exit_orocedure? amt$label_ exit procedure, 
=amc$iabel_options= 

fabeli_options: amt$label_ options, 
=amcttabel type= 

label _typet amt$iabel type, 
=amc$tine_number= 

line _numbers amtStine_number , 
=amc$max_biock_tength= 

max_block_fength: amt$max_biock_iengths 
=amcSmax_record_length= 

max _record_tength: amttmax_record_length, 
=amctmin_block_length= 

min_bltock_iengths amtSmin_block_iength, 
=amct$min_recor d_ltength= 

min _record_tiength: amt$min_record_tength, 
=amc$open_position= 

open_position: amt#oven_positions 
=amct owncode_procedure= 

owncode_ procedure: omt$program_name, 
z=amct$padding_character= 

padding_character: amt$padding_character, 
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2 AMDFATT 


re 


*calic 
*caltc 
*¥calic 
¥*calic 


2e5e2e 


=amc$page_format= 

page_format? amt$page_format, 
samc$page_fength= 

page_ltength: amtS$page_tengths, 
=amc$page_ width= 

page_width? amt$page_width, 
=amespreset_ value= 

preset value: amt$preset_vaiue, 
=ame$record_type= 

record_type? amttrecord_ type, 
=amc$ring_attributes= 

ring_attributes? amt$ring_attributes, 
=amctsuppress_buffering= 

suppress _ buffering? boolean, 
=amcstransfer_unit= 

transfer_unit: amt¢transfer_unit, 
=amc$user_info= 

user_info: amttSuser_info, 


=amc$vertical_orint_densit y= 


vertical_print_density? amt$verticat_print_density, 
casend 
cend; 


amdfite 
osdcts 

pfdatrbd 
pmdname 


3 AMOFILE 


{ * amdfite} 
CONST 
amc$max_user_info = 323 


TYPE 


amt$fite_attribute_keys = lamc$access_mode,y amc$block_header_lfength, 


amc$block types. amc$character_conversions amctciear_space, 
amc$error_exit_ procedure, amcferror_options, amcS$fite_ command_processing, 
amc$file_content,s amc$file dispositions amctfiie_ limit, 
amc$fiie_organizations amcfhorizontal_print_densitys, amc$irternai_code, 
amc$job_locai_share_ mode, amc$iabel_exit_procedures amc$iasel_options, 
amc$label_ types amc$iine_number, amc$max_dbtock_length,s 
amc$max_record_tengths amc$min_biock_iengthse amc$min_record_ltengths 
amc$open_positions amc$owncode_ procedure, amc$padding_ character, 
amc$page_formats amc$page_ltengths amctipage_width, amctpres2t_vaiue, 
amc$record_ type, amctring_attributes, amc$suppress_bufferirg., 
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amc$transfer_units amctuser_info, amc$verticai_print_density)>, 
amt$attribute_source = (amcB8undefined_attribute,s amctaccess_nethod_default, 
amc$fiie_command, amcSfile_request, amc$store_request, 
amc$preserved_ attribute), 
amt$btock_type = Camctsystem_specified, amc$user_specif ied), 
amtSerror_exit procedure = “procedure (file_identifier: 
amtSfile_identifier), 
amt$error_options = {(amc$terminate_file,s amc#drop_record, 
amc$acceptf_record, amctterminate_and_ displays amctdrop_and_disptay,» 
amc$accept_and_disptlay), 
amt$file_content = record 
class? amt$file_ciass, 
kind? amt$file_kind, 
natures amt$file nature, 
recend, 
amtSfite disposition = (amc$task_locats amctiob_global), 
amtSfiie_timit = 0 »2- amct$fite_byte_iimitf, 
amt$file_organization = lamctsequentiai, amctbyte_addressabl2, 
amc$index_sequential), \ 
amt$horizontal_print_density = Camc3ten_cpis amcttwelve_cpi, 
amc$thirteen_cpis amc$fifteen_cpoi), 
amt$internal code = (amc$as6-, amcfas8, amc$asciis amc8$dis3, amctdis&s, 
amc$ebcdics amc$bcd), 
amt$tiabel_exit_procedure = “procedure (file_identifier: 
amt#file_identifier)d, 
amt$labei_options = set of Came$votis amcS$uvil, amcghndri, amcthdr2, 
amc$eovie amc$eov2, amc$uh!i, amcteofi, amcteof2, amctutt), 
amt$labei_ type = (amc$iabelieds amctnon_standard_tabeiied, anctuntabeliied), 
amtSiine number = record 
length: 1 ee 999, 
focation? 1 «2+ 999, 


recendys 

amt$min_block_length = 1 «2 amc$maximum_block, 
amt$min_record_tength = 0 eee amcSmaximum_record, 
amt%padding_character = char, 

amtt$page_format {amctcontinuous_ form, amc$non_continuous_f orm) , 


amt$page_length = 1 «2s 65536, 

amt$page_width = 1 «2 65536, 

amtSpreset_vailue = integer, 

amt$record_ type = (amc$variable, amc$undefineds amctansi_ftix2d,» 
amc$ansi_spanned, amc$ansi_variable), 

amt$ring_attributes = record 
ri: osttring, 
r23 osttrings 
r33 ost$rings 

recends 

amt$transfer_unit = CamcSt, amcEt1, amc$t2, amctt4s amcft8, ancgtib, 
amc$t32, amc$t645. amc#ti28, amc8t256, amctt512), 
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amt$user_info = string (amctmax_user_info), 

amt$verticat print density = (Camc8six_tpi,s amcteight_ipis am: tnine_ivi+s 
amc$tweltve_tpi), 

amt$fite_ctass = Camc$unknown_class, amc$datas amcttibrary), 

amt$fite_kind = (ameSunknown_kind, amcBapi, amctbasic, amcfcobot, 
amc$cybil, amc$fortran, amc$pascal, amc$pli, amctsci, amcssynpls 
amc$cpu_assembier), 

amt$ file nature = (amctunknown_natures, amc$sources, amctobject, amcslist)s 


*¥calic amdbikh 
*callc amdgltob 
*¥callc amdopos 
¥calic osdaddr 


2250204 AMDENFO 


{ * amdfnfo} 
TYPE 
amt$access_info_keys = (amc$access_level, amcBailocation_unit lengths 
amc$biock_number, amc$current_byte_address,s amc$cycle_numb2ry, 
amc$device_ciasss amc$eo0i_byte_address, amc$error_status, 
amc$file_positions amc$giobai_file_name, amctgliobal_share_node, 
amc$iast_operations amcf$last_op_status, amc$tocal file _name, 
amc$record header_itengths amcfrecord_l!engths, amc$resi duai_3skip_count, 
amc$storage_class, amcttransfer_count, amctvolume _number) , 
amt$access_information = array[{ * 1 of amtSaccess_infos 
amt$access_info = record 
case key {Cinput} 32 amt¢access_info_keys of Coutput} 
Samc$access_tevei= 
access_f!evel: amt$access_level, 
=amc$allocation_unit_length= 
aliocation_unit_tengths amtSatliocation_unit_ftength, 
z=amc3biock_number= 
block numbers amt$btock_number, 
=amctcurrent_byte_address= 
current_byte_address:? amt$fite_byte_addressy, 
=amct$cyctle_number= 
cycie_ numbers: oft$cycle, 
=amc$device_ciass= 
device _ctass: rmttdevice_ciass, 
=amcseoi_byte_address= 
eoi_byte_address$’ amtffile_byte_address, 
=amcserror_status= 
error status: ost$status_conditions 
z=amc$ fite_position= . 
file position: amt$file_position, 
=amc$giobal_fite_name= 
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global_file_name: amt$Sgtobal_file_name, 
=amc$giobal_share_mode= 

global _share_mode: pft$share_setectionss 
=amc$iast_operation= 

last_operation: amt$tast_operation,s 
=amc$last_op_status= 

fast_op_status: amt$last_op_status, 
=amc$tiocai_file_name= 

local_fite name: amtftiocal_file_name, 
=ame$record_ header _fength= 

record _header_length? amt$record_header_lengths 
=ame$record_length= 

record_ltength3 amttmax_record_tength, 
=amctresidual skip_count= 

residuait_skip_count:3 amt$residuai_skip_count, 
=amct$storage_class= 

Storage_class: rmttstorage_ciass, 
=amc$transfer_count= 

transfer_count: amt$transfer_counts 
=amct$volume_number= 

volume numbers amtSvolume_number, 
casend 

recend; 


*Fcalic amdinfo 
*catlic amdioo 
*calic amdname 
*calilc amdopen 
Fealic amdrcdh 
*calic osdstat 
¥callc pfdatrb 
*callec rmdcias 


2e5e245 AMDGLOB 


{ * amdgiob} 
CONST 
amc$filte_ byte_limit = 2147483648, € 2**31 bytes 1} 
amc$maximum_btock = 16777216, € 2**24 bytes } 
amc$max_buffer_ftength = 16777216, { 2¥**24 bytes } 
amc$max_fites = 2000, 
amc$maximum_record = amctfile_byte_limit; 


TYPE 
amt$access_method_pointer = amt$owncode_pointer, 
amt$buffer_fength = 1 «+ amc$max_buffer_tength, 
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amt$fiie_byte_address = 0 e.2 amcS$file_byte_fiimit - ti, 
amt$file_identifier = record 

ordinai: amt$fite_id_ordinal, 

sequence? amt$file_id_ sequence, 

orimary_pointer: amtf$owncode_pointer, 

secondary_pointer: amttowncode pointer, 
recends 
ant$fite_id ordinal = 1 .«.« amcSmax_files, 
amt$filte_id_ sequence = 0 «2 4095, 
amt$fiie_position = (amc$bov.s amctboi,s amctmid_record, amcf$eor, 

amc$prior_to_eop fafter skip _back} » amcteops amcteois amcheov), 
amtSmax_biock_length = 1 .«- amc$maximum_bliock, 
amt$max_record_iength = 0 .. amc$maximum_record, 
amt$owncode_pointer = “procedure (file identifier? amt$file_identifier; 

calil_bliock: amt$cait_biock_seq$3 

access_method_pointer: amtf$owncode pointer; 

VAR status: ost$status) 
amt$cailt_bltock_seq = SEQ (REP 320 of cell), 
amttohysical_transfer_count = 0 «2 amc$max_buffer_iength, 
amt$skip_option = famc$skip_to_2o0r, amcino_skinp) » 
amt$term_option = (amctstarte amncécontinues amct terminate), 
amt$transfer_count = 0 e. amc$maximum_record, 
amtSunused_bift_count = 0 «2s 7», 
amtSworking sforage_ length = 0 «+ anc$maximum_record}3 


*callc osdstat 


2050206 AMDINEO 


{ * amdinfo} 


CONST 
amc$max_altocation_unit = 8388608, (€2**23 bytes, 1,048,576 words} 
amc$max_votl_ number = 64, 


amc$minimum_addressabie_unit = 20483 {bytes} 


TYPE 

amt$ailocation_unit_length = amcSminimum_addressabie_unit e. 
amc$max_allocation_units 

amt$btock_number = 1 2.2 amc$file_byte_limit, 
amt$gtobat_file_name = integer, 
amt$last_op_status = (amc$active, amc$complete), 
amt$residual skip_count = amt$skip_count, 
amt$volume number = 1 2. amc$max_vol number 5 


*callc amdskip 
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2250207 AMOLOP 


{ * amdiop} 
TYPE 

amt$liast_operation = (amc$check_buffer_req, amc$ciose_redq, 
amc$ctose_volume_req, amctdetete_reaq, amc$delete_direct_rey, 
amc$fetch_access_info_req, amcSfetch_reg, amctfiush_reas 
amc$get_direct_regq, amc$get_label_regq, amcf#get_next_rea, 
amc$get_partiai_reqs, amctget_partial _direct_req, 
amc$get_segment_pointer_reaq, amc$iock_file_rea, amctopen_r2 aq, 
amc$pack_biock req, amctpack_record_req, amc$put_direct rey, 
amc$put_label_regqe amctput_next_req, amc$put_partial_reaq, 
anc$put_partiai_direct_req,s amc$read_req, amcf$read_direct_*ea, 
amcBread_direct_skip_req, amctread_ skip_reas amcf$repl ace_r2q, 
amcefreplace_direct_regq, amc$rewind_reaq, amctrewind_volume_“ea, 


amc$seek direct_req, amctset_segment_eoi_req, amct$set_segm2 nt _pos_reg, 


amc$skip_freqs, amc$store_rea, amc$untiock_file_reg, 
amc$unpack_block_req, amcfunpack_record_reaq, amc$write_reaq, 
amc$uwrite_direct_reqs amc$write_eop_reaq, amciwrite_tapemar< req); 


2050208 AMDNAME 


€ * amdname} 


TYPE 
amt$fite_name = string ( * )» 
amt$tocai_filte_name = osttname35 


*¥calic osdname 
2252209 AMDOPEN 
{ * amdopen} 


TYPE 
amt$access_leveil = (amc$physicals amctrecord, amct$segment); 


205022010 AMDOPOS 


{ * amdopos} 
TYPE 
amt$open_position = Camctopen_no_positionings amcfopnen_at_boii » 
amcS$open_at_eop, amc$open_at_eoi); 
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20522211 AMDOWNC 


{ * amdownc} 
TYPE 
amt$call_block = record 

case operation: amt#iast_operation of 
=amc$check _ buf fer_regq= 

checks amt$check_buffer_rea, 
=amc$delete_direct_req= 

deid? amt$delete_direct_rea, 
=amce$fetch_access_info_req= 

fetch_access: amtS$fetch_access_info_req, 
=amct fetch _req= 

fetch: amt¢fetch_reqs 
z=amc$get_direct_req= 

getd? amt$get_direct_reaq, 
=amc$get_tabel req= 

gett: amt$qet_label_rea, 
=amc$get_next_req= 

getns amtB8get_next_reas 
=amc$get_partiai_req= 

getp: amt$get_partiati_rea, 
samc$get_partiat_direct_reaq= 

getod: amt$get_partial_direct_reaqs 
=amctget _segment_pointer_req= 

getsegp: amtS$get_segment_pointer_reay, 
=amcstlock_file_regq= 

flock: amtStock_fite_rea, 
samc$open_req= 

open: amt$open_redqy 
=amc$pack_biock_req= 

packb: amt%pack_block_reay, 
=amce$pack_record_req= 

packr: amt$pack_record reqs 
=amc$put_direct_req= 

putd? amttout_direct_regq, 
samctput_labet_req= 

outis amt$out_label rea, 
=amc$put next _req= 

putn: amtS$put_next_req, 
=amc$out_partiat_req= 

puto’ amt$putf_partial_rea, 
=ameS$put_partiat_direct_regq= 

putpd: amttout_partiat _direct_reaq, 
=amc$read_req= 

rsq: amt$read_reays 
=amctread_direct_req= 
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rboas amt$read_direct_req; 
samctread_ direct_skip_req= 
roaskp? amt$read_direct_skip_redq, 
tamctread_ skip_req= 
rsqskp3 amttread_skip_redadys 
=amc$replace_reg= 
repiace: amt$replace_req;, 
samc$reptace_direct_reg= 
repid: amt$reptace_direct_req, 
=amet$rewind_req= 
rewind: amt$rewind_ reas 
=amctrewind_volume_req= 
rewvolt: amtfrewind_voltume_reaq, 
=amc$seek direct_req= 
seekd’s amt%seek_direct_redqy, 
=amct3set segment_eoi_req= 
segeoi? amt$set_segment_eoi_ reas 
=amc$set_segment_pos_req= 
segposs amttset_segment_pos_reaq, 
=amc$skip_regq= 
skp: amt$skip_reas 
z=amc$store_regq= 
store? amt%store_req, 
=amc$unpack_bi ock_req= 
unpackb: amtSunpack_biock_redqy, 
=amcefunpack_record_regq= 
unpackrs amt funpack_record reg, 
=amctwrite_regq= 
wsq: amtSwrite_rea, 
=amc$write direct oreq= 
wubas amt$write_direct_reag, 
casend, 
recends, 
amt$check_buffer_regq = record 
buffer_areas “cell, 
request_completes “boolean, 
byte_address: “amt$file_byte_address, 
fransfer_count: “amt$ohysical_transfer_count, 
wait: osttwait», 
recend, 
amt$detete direct_req = record 
byte_addresss amt$fite_byte_address, 
recendy 
amt$fetch_access_info_req = record 
information: “~amtSaccess_informations 
recends 
amt$fetch_req = record 
file_attributes: “~amt$fite_attributes, 
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recend, 

amt$get_direct_req = record 
working_storage_area? “ceil, 
working_storage_length? amt$working_ storage_lengths 
record_ltength: “amt$max_record_liengths 
transfer_count: “amt$transfer_count, 
byte_addresss amt$file_byte_address, 
file_position: “amtS$fite_position, 

recendys, 

amt$gef_labef_req = record 
label area: “cell, 
fabel_area_length: amttiabel_area_iength, 

recend, 

amt$get_next_req = record 
working _storage_area? “cell, 
working stforage_liength? amt$working_storage_lengths 
record_ftength: “~amt$max_record_ienagth, 
transfer_count: “amt$transfer_count, 
byte_address: “amt$fite_byte_address, 
file position: “amt$file_positions 

recends 

amt$get_partial_req = record 
working _storage_areas “ceil, 
working_storage_tength? amtfworking_storage_flength, 
record_ftengths: “amt$max_record_iength, 
transfer_count: “amtttransfer_counrf, 
byte_address:? “amt#fite_byte_addreass, 
filte_position: “~amttfile position, 
Skip_option:? amt$skip_option, 

recends 

amt$get_partiai_direct_req = record 
working _storage_areas “cell, 
working_storage_fength: amt$working_storage_fsength, 
record_fength: “amt$max_record_iength, 
transfer_count:? “amt$transfer_count, 
byte_addresss amt$file_byte_address, 
file_position: “amt$file position, 
Skip_option:? amt$skip_options 

recends 

amt$get_segment _pointer_req = record 
kind: amt$pointer_kinds 
pointer: “amt$segment_pointer, 

recends, 

amtSiock_file reg = record 
status: “amtSfite_ltock, 

recendy 

amttopen_req = record 
access_levei: amt$access_level, 
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file_identifiers “amtSfile_identifier, 
iocal_filte name: amttfite_name, 


recends 


amt$pack_btlock_req = record 
buffer_areaz “cell, 
buffer_liength:2 amt$buffer_tength,s 
header: amttBpack_biock_header, 
user_information: “cell, 
user_info_tength: amt$user_info_length» 


recends 


amt$pack_record_ req = record 
buffer_areas “cell, 
buffer_iength? amtS$buffer_tengths 
headers: amt$record_ header, 


recendys 


amt$put_direct_req = record 
working_storage_areaz “cell, 
working_storage_ltength? amt$working_storage_length, 
byte_address: amt%fiie_byte_address, 


recend, 


amt$put_ltabel_reg = record 


jabel_area3 
fabel_area_ 


recend, 


“cell, 
fength: amtttiabel _area_lengths 


amt$put_next_req = record 
working_storage_areas “cell, 
working storage_ltength:? amt$working_storage_fiengths 
byte_address: “amt$fiile_byte_address, 


recend, 


amt$pout_partiai_req = record 
working_storage_areaz “cell, 
working_stforage_ftength’: amt$working_storage_fengths, 
byte_address: “amt$fite_byte_address, 
term_option: amt$term_option, 


recends 


amttput_partiai_direct_req = record 
working_storage_area? “ceil, 
working _storage_iength: amt$working storage_fength, 
byte_address: amt$fite_byte_address, 
term_option: amt$term_option, 


recendy, 


amt tread_req 


= record 


buffer_area:? “ceil, 

buffer_ftength: amtfbuffer_tength, 
byte_address? “amt$fite_byte_address, 
transfer_count: “amt$physicai_transfer_count, 
wait? ost$wait, 


recende 
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amt$read_direct_ req = record 
buffer_area:z “cell, 
buffer_ltength:? amt$buffer_liength; 
byte_address: amt$fite_byte_address» 
transfer_count? “amttphysical_transfer_count, 
waits ost$waitf, 

recends 

amt$read_direct_skip_req = record 
buffer_area:? “cell, 
buffer_tength? amt$buffer_lengths 
byte_address: amt$fiie_byte_address, 
transfer_count? “amtfpohysical_transfer_count, 
wait? ost $wait, 

recends 

amtf$read_skip_req = record 
buffer_area: “ceil, 
buffer_iength? amtSbuffer_tength, 
byte_address: “amt%fite_byte_address, 
transfer_count: “amtSohysical_transfer_count, 
wait’ osttwait, 

recend, 

amt$reptace_regq = record 
working_storage_areas “cell, 
working_storage_length:? amt$working_storage_lengthy, 

recends 

amt$reptace_direct_regq = record 
working_storage_areas “cell, 
working_storage_length: amt$working storage_length, 
byte_addresss: amf$file_byte_address, 

recend, 

amt $rewind_req = record 
Wait: ostSwait, 

recends 

amt$rewind volume req = record 
wait? ostwait, 

recends 

amt$seek_direct_req = record 
byte_address:? amt$fite_byte_address, 

recends 

amt$set_segment_eoi_req = record 
pointer? amt$segment_pointers, 

recends 

amt$set_segment_pos_req = record 
pointer: amt$segment_pointer, 

recends 

amt$skip_req = record 
direction: amttskio_direction, 
units: amt$skip_units » 
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count? amt$skip_count, 
fite_position: “amttfite_pvosition, 
recend, 
amt$store_req = record 
fiie_attributes: amt$store_attributes, 
recend, 
amt Sunpack_biock_req = record 
buffer_areas: “ceil, 
buffer_iength: amt$buffer_length, 
headers “amt$unpack_biock_header, 
user_information: “cell, 
user_info_length? “~amtfuser_info_jlengthe 
recend, 
amttSunpack _ record reg = record 
buffer_area: “cell, 
buffer_ftength: amt$buffer_length, 
pointer_kind: amt$pointer_kind, 
header: “~amt$record_header , 
data_address: “amt%segment_pointers 
recend, 
amttwrite_ req = record 
buffer_area: “cell, 
buffer_fength? amtSbuffer_length, 
byte_address: “amt3file_byte_address, 
waits ostS$wait, 
recend, 
amt$write_direct_req = record 
buffer_areas ~cell, 
buffer_length:’ amtfbuffer_tength, 
byte_address? amt$fite_byte_address, 
waits osttwait, 
recend$ 


*calic amdbikh 
*¥caile amdfatt 
*¥cailc amdfnfo 
#¥calic amdiab!i 
¥calic amdlock 
*calic amdiop 

*¥cailc amdname 
*¥calic amdopen 
*calic amdrcecdh 
*calic amdsgpt 
*¥calic amdskip 
*calic amdstor 
*calic osdwnw 
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{ * amdrcdh} 
CONST 
amc$max_record_header = 163 


TYPE 
amt$record_ header = record 
hneader_type: amtfrecord_ header_type, 
length: amtS$max_record_tength, 
previous_length3 amt$max_record_length,s 
unused_bit count’ amft$unused_bif_count, 
user_information: cell, 
recends 
amt$record_header_length = 0 «2 amcimax_record_header, 
amt$record_header_type = famc$full_record, amcfstart_record, 
amc$continued_ records, amc$end_record, amcf$partition, amc$d2ieted_record) 3 


20502013 AMDSKIP 


{ * amdskip} 


TYPE 
amt$skip_count = 1 «2. amc$fiie_byte_timits 
amt$skip_direction = (amc$forwards amctbackward) , 
amtt%skip_units = lamc$skip_record, amct$skip_biock,s, amctskip_sdartition, 


amc$skio_tape_mark) $ 


20502014 AMDSTOR 


{ * amdstor} 
TYPE 
amt$store_attributes = array[ * 1] of amt$store_attribute, 
amt$store_attribute = record 
case key? amtSfilie_attribute_keys of 
=amc$character _conversion= 
character_conversion? boolean, 
=amcterror_exit_procedure= 
error_exit_ procedures amtferror_exit_procedure, 
=amcserror_options= 
error_options: amtterror_options, 
=amc$fite_ content= 
fiile_content: amt$fiie_contenf, 
=amctfile_timit= 
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file_timit? amtS$file_limit, 
=amc$horizontatl_print_edensity= 

horizontal_print_density: amtS$horizontai_print_ density, 
=amc$tabet_exit_procedure= 

fabe!l exif _procedure: amt$tlabel_ exit procedure, 
=amc$iabel_options= 

jabel_options: amt$tabel_options, 
=amc$iine_number= 

fine _number:? amt$tine number, 
=amc$padding_character= 

padding_character: amt$padding_character, 
=amc$page_format= 

page_format: amt$nvnage_format , 
=amc$page_fength= 

page_ltength: amtS$page_length, 
=amc$page_width= 

page _ width: amt%page_width, 
=amc$suppress_buffering= 

suppress_buffering? booleans 
zamcttransfer_unit= 

transfer_unift? amt#transfer_unit, 
=amcs$user_info= 

user_info: amt$user_infos 
=amc$vertical_print_density= 

verticali_print_density: amt$verticat_print_density, 
casends . 

recend; 


*calic amdfile 


22502215 OSDADDR 
{ * osdaddr} 


{ NOS/180 address constantse } 
CONST 


{ Ring namese } 


{ Lowest ring number (most priviedged). } 

€ Highest ring number (least priviedged). } 
0s 

1, € Reserved for Operating System. } 

2+ © Task Monitor. } 


osc$min_ring = i, 
osc$max_ring = i5 
osc$invatid_ring 
osc$os_ring_i = 

osc$tmtr_ring = 


is 
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3, © Task servicese } 
4&, {€ Reserved for system job. } 


osc$tsrv_ring 
osc$sj_ring_1 
osc$sj_ring_2 
osc$sj_ring_3 
osc$application_ring_i 


wou dn 
wt 
“ 


osctapplication_ring_2 = 8, 
osc$application _ring_3 = 9, 
osc$apptication_ring_& = 10; 


osctuser_ring = 11, € Standard user tasks } 
osctuser_ring_i iz, € Reserved for user.se..e2D0eSs 
osc$user_ring_2 13>, 

osc$user_ring_s$ 
osc Buser_ring_& 


hou wa 


153 


{ Virtual address space dimensions. } 


CONST 
osc$maximum_segment = Off f(16), 


osc$maximum_offset = 7fFffFFfe(16), C!f!! CYBIL BUG 


osctmax_segment_iength = osctmaximum_offset + 13 


{ Globat-tocal key lock definition. } 


TYPE 
ost3gi_key = packed record 


gliobai: boolean, € True if vaiue is global key. 


locai3 bootean, € True if vaiue is tocal key. 


7+ ( Reserved for application subsyst27s.} 


requests availabie.} 


14, {€ Reserved for usetee.es0eSe requests not avaitablie. 


eel g 


3 


key_focks osttkey_tiock_value, € Key or tock vatuee } 


recend, 


ost$key_ftock_value = 0 .o.. 3f{16), 


{ CYBER 180 forty eight bit PVA definition. } 


osttring = osc$invatid_ring e-« osc$max_rings € Ring number. } 
ost$valid_ring = osc$min_ring «2+ osc$nax_rings € Valid Ring Nunber. } 
ost$segqment = 0 es oscEmaximum_segments € Segment number. } 
ost$segment_offset = -osc$maximum_offset «2 osctmaximum_offset, 


{ Address offset. } 


ost$segment_tength = 0 ee osc$max_segment_ltength, 


osttretative_pointer = —- 7EFFTFTFI16) «6 7FEFFEFFFF(C16), 


ost$pova = packed record 
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ring: ost$ring, 

segt ostSsegment, 

offset? osttsegment_offset, 
recend$ 


2e5e2016 OSDCES 
€ * osdcfst} 
{ Secure memory/fiie parameter } 


TYPE 
ost$ctear_filte_ space = bootean} 


2eSe2ei? OQSONAME 


{ OSDNAME Type definitions for standard 05S names. } 


CONST 
osctname_size 


313 


TYPE 
ost$name_size 


"i 


4 2. osctname_sizes 


TYPE 
ost$name = STRING (osc$name_size) 3 


20502018 OSDSTAT 


CONST 
osc$max_condition = 993999, 
osc$status_parameter_deiimiter = ***";3 
TYPE 
ostéstatus_condition = 0 .«. osc$max_condition; 
TYPE 


ost$status = record 
case normal? boolean of 
=false= 
identifiers: string (2), 
condition’ ost%status_condition, 
text: oststring,s 
casends 
recend; 
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*calic osdstr 


20502019 OSDSTR 


*callc zoststr 


€ OSOSTR Type definitions for the *text* 
TYPE 
osts$string = record 
Size? ost3string_ilengths 
vaiue’ string (osc$max_string_tength),; 
recend; 


20502020 OSDWNW 


{ * osdwnw} 


 { Asynchronous request parameter? used by all 


portion of the status 


POP LE PAD FOE TR FE TUE IE OR FOE LD TOD FE POS ee he PD a OO 


record } 


NOS/180 requests trat 3} 


{ can be performed asynchronously to indicate whether the cailer } 
{ wishes to execute the request synchronously or asynchronoustys } 


TYPE 


ost$wait = losctwait, oscfnowait) 5 


202502221 PEDATRB 


{ * ofdatrb} 
CONST 
pfc$maximum_cycie number = 


TYPE 
pft$cycie = 1 oe 

opftg$permit_options = (pfc$read, 
pfcSexecute, pfc$add_cycie, 


oftS$usage_options = pfctread 
pft$usage_selections = 


pft$share_options = pfc$read 
pft$share_seiections = 


pfc$maximum_cycie_ number, 


efcssnortense pfcSappend, pfcimnodifys 
pfctcontroti), 


ee Ofcsexecute,s, 
set of pftSusage_options, 


ee Dfctexecute, 
set of oft$share_options; 
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2e5e2e22 PMDNAME 


{ * pmdname} 
TYPE 
pmtSprogram_name = ost $name; 


*calic osdname 


2e5e20e23 RMDCLAS 


{ * rmdctas} 
TYPE 
rmt$device_ciass = (rmc$mass_storage devices rmctmagnetic tare device, 
rmc$terminal_device), 
remtsstorage_class = (rmec$temporary_devices rmcftpermanent_device, 
rmc$queue_device) § 
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206 IDLOSYNCRACTIES OF THE SIMULATED NOS/VE_170 SYSTEM 


226.1 NOS/170 FILE STRUCTURE “MARKS” 


Neither SIMULATED NOS/VE I/0 nor the NOS/170 INTERFACE create or 
support the detection of the NOS/170 file structuring marks 
“end _of_record™ or “end_of_file  (logical)™” with the amctvariabie 
record type. Neither SIMULATED NOS/VE [7/0 nor the NOS/170 INTER- ACE 
generate the “end_of_partition™ described in the NOS/VE ERS, nor 
does it detect such a structure for any record type. 


2e6et01 SIMULATED NOS/VE I/0 


The structuring marks, “end of record™ and “end_of_fite™ are 
detected with the “interchange” fiie format having a record type of 
AMCSUNDEFINED and an “end_of_partition™ status is returned when2ver 
either type of mark is detected. 


2e60122 NOS/170 INTERFACE 170 


The NOS/170 INTERFACE is the same as SIMULATED NOS/VE I/0 for the 
“amc$variable”™ record type files in that it does not support the 
detection or creation of any NOS/170 structure marks. If sucry a 
mark is encountered the interface wil! abort the programe 


2e622 NOSZi70 FILES 


The onty capacity provided by the SIMULATED NOS/VE I/0 systen is 
that of readings writings positioning, opening, and closing files. 
Tne SIMULATED NOS/VE I/0 system does not provide any of the 
fotiowing functions: 


Permanent File Manager Functions 
GET, ATTACH, DEFINE, etc. 

Local File Manager functions. 

Dispose Processor (DSP) functions. 


In generats the user must perform all file oreparation functions 
prior to using the SIMULATED NOS/VE I/70 system. 
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2o7 EXAMPLES OF FILE USAGE 


2e7ei1 NOS/VE DEFAULT FILE TYPE 


MODULE 


?? set Utist t= 


¥calic 
¥calic 
*¥calic 
¥calic 
*¥caltc 
*calic 
*caiic 
*¥calic 
*caltc 
*¥caltc 
*calitc 
*calic 
*¥caltc 
*¥calic 


2? set list 


amp_example deck 3 


= off) ?? 
amxcise 
amxfile 
amxfnfo 
amxftch 
amxgetd 
amxgetn 
amxgetp 
amxgfat 
amxopen 
amxputd 
amxputn 
amxputp 
amxrewd 
amxstor 
on) ??.. 


a— 
Ps 


PROGRAM amp_exampole3 


CONST 
in_file name = “source", 
out_file_name = *fmti8s80", 
comm_file_name = *output*, 
max rec _size = 10003 

TYPE 
file = amt$fite_identifier, 
wsa_record = string(*), 
wsa = “wsa_record;3 

VAR 
in_fid ? file, 
out_fid 3 files 


comm_fid 3 
file_attributes 3 
wsa_ptr 3 


file, 
“amt$fite_attributes, 
WSa-e 


wsa_fength 3: [static] integer *= max_rec_size, 


wasa_ouft_ten 3: i 
rec_ienagth 3 


max_rec_size, 
amt$max_record_tength, 


tr_ocount % amt$transfer_count, 


skip 3 


— 
em 


istatic] amttskip_option amc$no_skid, 
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no such _fite_msg 2: (STATIC) STRING(21) s= *SOURCE not local_file", 
bum_gfa_msg 3 E€STATIC] STRING(23) &= “bad GET_LFILE_ATTRIBUT=S*, 
id_msg * [STATIC] STRING(60) 3= 

*" testing GET_PARTIAL, PUT_PARTIAL, PUT_NEXT. 10900 char rece", 
start program msg 3? [STATIC] STRING(20) = “program start AYMPEXO", 
end_program_msg : [STATIC] STRING (1 8) = *end program AMPEX)]*, 
term 3 amt$term_option, 
file_pos & amttfiie_position, 
cba : amt$file_byte_address, 
Stat : ost$status, 
local_file?: S800LEAN, 
existing_file: BOOLEAN, 
contains _data: BOOLEAN$ 


/program#/ 
begin 
Sstatenormal 2= TRUES 
{ Altocate space for record area. } 
ALLOCATE wsa_ptr 3 { max_rec_size 1] 3 
IF wsa_optr = nit THEN 
EXIY /program#/3 
IFENDS 
{ Alitocate space for filte_attributes record. } 
ALLOCATE fitle_attributes 2 € 1 «2 5 7 3 
IF fite_attributes = nil THEN 
EXIT Saree 
IFEND; 
7filet/ 
begin 
file_attributes7”{11].key 
fite_attributes”“I2].key 
fite_attributes"(3].key 
file_attributes”“(4].key amctBopen_position; 
file_attributes7~“[S5].key amctrecord_type}3 
{ Initiatize file_attributes pecord for communications fiie. } 
amp$get_file_attributes ( comm_fiile_name, file_attributes”, 
local_fite, existing _fite, contains_data, stat )3$ 
file_attributes”{1].access_mode = 
goftSusage_selections € ofc$append 13 
file_attributes”“(4&].open_position %= amctopen_at_eoi ; 
amp$filte ( comm file name, file_attributes 7, stat )3$ 
amp$open ( comm_file_name»y amc$record, comm_fid, stat )3 
amp$put next (comm_fids #LOC (start _program_msg), 
#STZE(start_program_ms 9), chay stat)$ 
amp$put_next (comm_fid, #LOCCid_msg). #S5SIZEC(id_msg). cha, stat) 3 
{ Initialize file_attributes record for input file. 1} 
amp$get_file_attributes { in_file_name, file_attributes 7, 
local_fiie,s, existing file, contains_data, staf ) 3 


amc$access_mode;5 
amc$biock_type 3 
anc$fite_organization 3; 


se 86 88 se Se 


Hou do 
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IF NOT jiocal_fiite THEN 

ampSput_next (comm_fide #LOC(no_such_filte_msg), 

#SIZEt(no_such_file_msg), cba, stat$ 

EXIT /fite#/ 
IFENDS 
file_attributes”“({il.access_mode += $oft$usage_selections(€ pfctread | 
amp$file t in file name, file_attributes”,» stat 13 
ampsopen ( in_file name, amc$records in_fids stat) 3 

€ Initiatize user fite description record. for output file. } 
file _attributes”"[1].access_mode 3= 
$SpfTSusage_selections{ pfc8shortens pfc$append, pfctmodify 13 

amp$tite ( out_file_name, file_attributes”, stat )3 
ampgopen (out_file_name, amc$record, out_fids stat) 3 
ferm i= amctstart 5 


{ This is the main data copying loop. } 
/main_loop/ 
WHILE TRUE DO 
amp3$get_partiail ( in_fid, #LOC{wsa_ptr“), wsa_iength, 
rec_iength, trcount, cbhas file pos, skip, stat) § 
wsa_Out_len %= tr_count3 
CASE file_pos OF 
=amcS$eoi= . 
amp$put_next (comm_fid, #LOC{end_program_msg), 
#SIZE lend_program_ms9)-. cbhay stat) 3 
exit /main_loop/ 3 
=amc$eor= 
IF (tern = amc$start) THEN 
amp$put_onext Cout_fid, #LOCiwsa_ptr 7). wsa_out_lenys 
cha, stat) 
ELSE 
term 3= amc$terminate}3 
ampSput_partial (out_fid, #LOC(wsa_ptr 7), wsa_out_!2n-+ 
cha, term, stat )35 
IFENDS 
term = amctstart; 
=amc$mid_record= 
amo$put_partial (out_fid, #LOC(wsa_ptr 7“), wsa_out_ten, cbhay 
terms stat 35 
term 3= amc$continue; 
{ NOTES no other statuses can fogicaliy occur. } 
ELSE 
CYCLE /main_loops/;3 
CASEND 3 
WHILEND /main_loop/ 3 
{€ Close input and output files. } 
ampgciose (in_fids stat) 3 
ampSclose (out _fids stat) 3 
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2e0 SIMULATED NOS/VE 1/70 INTERFACES 
2e7.1 NOS/VE DEFAULT FILE TYPE 


{ Just 


EN 


{ Free 


fr 


for kicks, try to open the ms-files again. } 
amptget_ file attributes ( in_file_name, 
local_file, existing _fites contains_data, 
ampSonen Cin _file_names amc$records 


amp$get_fiie_attributes ( out_file_ name, 
focal file, existing flies contains_data, 
IF NOT existing_file OR NOT iocal_file THEN 
ampgpuf_unext ( comm_fids #LOCloum_afa_msg), 
#SIZEl(bum_gfa_msg), cha, stat )3 
IFENDS 
ampsopen (out_file name, amctrecord, out_fids 


amp$ciose (in_fid, stat)$ 
amp$ciose (out_fids. stat); 
amp$ctose {comm _fids stat)3 
D /file#é#s 5 

the allocated storage areas. 
ee wsa_ptr 5 


3 


free file_attributes}3 


END 


f/program#/ 3 


PROCEND amp_exampie 3 
MGDEND amp_exampie_deck4 


2efe2 NOS/170 INTERCHANGE FILE TYPE 


MODULE 


7? s 
*¥catic 
¥*callic 
*#caltc 
*calic 
*¥caltc 
¥*¥catic 
*caltc 
Fcalic 
¥calic 
*Fcalic 
¥calic 
*callic 
*¥catlic 
*¥ceallic 
*catic 

2? s 


VAR 


amp_example_deck 3 


. 
a= 


et (fist off) 
amxcise 
amxftch 
amx fnfo 
amxfilie 
amxgetd 
amxgetn 
amxgetp 
amxgfat 
amxopen 
amxputd 
amxputn 
amxputp 
amxrewd 
amxseek 
amxstor 
et (list %= on) ?? 


Ce 4 
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file _attributes”, 


stat )3 


in_fids stat); 


file_attributes”, 


stat )3 


stat);5 
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disptay_fiag : {XDCL] BOOLEAN s= FALSE, 
display_code_characters STRING(64) t= 

*s ABCDEFGHIJKLMNOPQRSTUVWXYZ901234567 894-*F/O) $= 4. #L1Z"_1&* *?<>arn75", 
special_display_codess STRING(64) %= 


* abcdefghi}kimnoparstuvwxyzli}” ae 
output_line: STRING(64) 3= 

* w 09 00 00 00 00 00 00 90 00 00 @aaaaaaaaa a’, 
titie_line:s STRING(64) t= 

ae 8 WORD OCTAL DATA DISPLAY COD= CHARS.*3 

CONST 

octal data = 13, 
ascii. data = 46, 


address_data = 93 


PROGRAM amp_exampie $3 
CONST 
in_ftilte_name = “source”, 
out_file_name = *icfile*, 
ve_file name = “fmti80", 
comm_file name = “output, 
max rec size = 643 


TYPE 
file = amt$file_identifier, 
wsa_word = RECORD 
two_bit_field3 PACKED ARRAY € -1 «-e 30 J OF 0 a2 3; 
RECEND, 
wsa record = RECORD 
word 3 PACKED ARRAYI*] OF wsa_word, 
RECEND, 
ws@a = “wsa record; 


VAR 
isgjek? INTEGER, 
in_fid = file, 
ouf_fid : file, 
ve_fid 2 file, 
comm_fid 2: files 
fite_attributes? “amt$fite_attributes, 
dec_char &: INTEGER, 
wsa_ptr 3 wsas 
wsa_out_fen 3 INTEGER, 
rec_tength 3 amt%max_record_iengths 
tr_count 3 amt$transfer_count, 
skip 3 static] amt&$skip_option %= amcfno_skip, 
no_such_fite_msg 2: [STATIC] STRING(21) s= “SOURCE not tocal_file*, 
start_program msg 3: CSTATIC] STRING(20) %= “program start AYPEXA*, 
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end_program_msg : [STATIC] STRING(18) ?= *end program AMPEXi*, 
id_msa3: (STATIC! STRING(49) 3= 
* testing INTERCHANGE FILES for GET_LNEXT, PUT_NEXT*, 
escape76 2% BOOLEAN, 
escape74 3? BOGLEAN, 
zero_byte 3 B00LEAN, 
file_pos 3: amt$fite_position, 
cha amt$fiie_byte_address, 
sba ant$fiie_byte_address, 
stat 3 ostfstatus, 
focai_fiife?: BOOLEAN, 
existing file? BOOLEAN, 
contains_dataz BOOLEAN, 
word_address? INTEGER; 


/program#/ 
begin 
{ Atiocate space for record area. } 
ALLOCATE wsa_ptr 3: € 1 «2 max rec _size ] 3 
IF wsa_ptr = nii THEN 
EXIT /Sorogram#/ 3 
IFEND;$ 
{ Altocate space for file_attributes record. 1} 
ALLOCATE fiie_attributes? € 41 «2 5 7 $3 
IF file attributes = nit THEN 
EXIT /program#/ 3 
IFENDS$ 
/fitlet#/ 
begin 
file_attributes“{1].key 
file attributes” {2].key 
file _attributes"(3l.key 
fite_attributes"{4].key amecSopen_positfion; 
file_attributes“(5].key amc$record_type$ 
{€ Initiatize fite_ attributes record for communications file. } 
ampéget_filte_attributes ( comm_file_name, file_attributes”, 
local_file, existing file, contains _data, stat ) 3 
file_attributes”"{1].access_mode 3= 
$oftf$usage_setections { pfc$anppend 13 
fite_attributes”“{4].open_position 2= amcfopen_at_eoi $ 
amp#fite { comm _file_ name, file _attributes™, stat 33 
amp#open ¢€ comm_filte_names, amc$record, comm_fid, stat 33 
amp#put_next (comm_fid, #LOC(start_program_msg)>, 
#STZE(start_program_msg@)-. cha, stat) § 
amp#put_ next (comm fides #LOCCid_msg), #STZECid msg). cha, stat); 
{ Initialize file_attributes record for input interchange file. 3 
amp#get_file_attributes (in_file_names filte_attributes”, 
flocal_file, existing fite, contains_data, stat )3 


amc$access_mode}3 
amc$biock_type 3 
amc$fiie_organization; 


oe 8 
Hou Wow ou 
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IF (tocai_filte <> TRUE) THEN 
amp#put onext (comm_fid, #LOCitno_such_filte_msg) . 
#SIZE(no_such_file msg)», cha, stat); 
EXIT /file#s 

IFEND3 
fite_attributes”“[il.access_mode %:= 

$oftSusage_setiections ({ pfc$read 15 
file _attributes”“{21].block_tyoe $= amc$user_speci fied; 
file_attfributes"“{3].fiie_organization %t= amcssequent iat 5 
file_attributes"[4J.open_position 3= amc$open_at_boi $ 
file_attribdbutes"“(5l.record_type 2= amcSundefined3 
amp#fite ( in file name, file_attributes™, stat )5 
amp#open (Cin_filte_names amc$recofd, in_fids stat) 3; 

€ Initialize fite_attributes record for output interchange fil2. 

fite_attributes”(1}].access_mode 3= 

SQoftgusage_seiections (€ ofc$shortens ofcfapoend 133 
amp#fite ( out_filie name, file_attributes7™, stat )3 
amp#topen (out_file name, amc$record, out _fids stat) 3 

{ Initiatize fite attributes record for NOS/VE format file. } 

fite_attributes"“([1il.access_mode ?= 

SoftSusage_setections [ pfc$shortens ofc$modify 13 
file_attributes”{2]}.block_type %2= amct$system_speci fied; 
file_attributes”{3}.file_organization s= amctsequent ial 3 
file_attributes”“(4&l.open_position 3s= amcfopen_at_boi 3 
file _attributes"“(5l].record_ type %= amct$variabtes 
amp#fiie ( ve_file name, file_attributes~, stat )3 
amp#ooen (ve_file_ name, amc$record, ve_fids stat); 


escape76 3= FALSE; 
escape74& 2= FALSES5 
word_address = 0; 


€ This is the main data copying !oop. } 
/main_toop/ 
WHILE TRUE DBO 
ampé#get_next ( in fid, #L0Ctwsa_ptr 7), #SIZE(wsa_ptr™), 
rec_ltength, tr_count, sba»y file_pos, stat); 
wsa_ouf_ften %= trecount 3 
CASE filte_pos OF 
=amcseoi= 
amofput_ next (comm _fid, #LOClend_program_msg) >» 
#SIZE (end_program_msg). cbas stat) 3 
exit /main_loop/ 3 
=amc$eor,amc$mid_record,amc $eop= 
amp#ouf_next (Cout_fid, #LOC(wsa_ptr ). wsa_out_lens 
cha, stat); 


IF display_fiag THEN 
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{ Convert data from 6-bit display codes to ascii characters. } 
FOR i 2:= 1 to tr_count DIV 8&8 BC 
zero_byte 3= FALSE>3 
FOR 3 = 17010 B30 
s= 3 * J =- 23 
dec_char = 16 * wsa_ptr 7” .word(il.two_bit_fieldiki + 
& * wsa_otr”.wordLil.~two_bit_fietd{ k+11 + 
wsa_ptr7”.wordfil.two_bit_fieidi k+21 3 
= ascii _data + 2 * (€ 4 =- 133 
IF escape76 = FALSE THEN 
IF escape74& = FALSE THEN 
IF dec _char = 62 THEN 
escape76 = TRUES 
outputf_tine dk) 3= ° "3 
ELSE 
IF dec_echar = 60 THEN 
escape74& 3= TRIES 
output_line (kk) t= * %3 
ELSE 
outout_line(k) 2= displtay_code_characte* (dec_chartt) 3 
TFENDS 
IFENDS 
ELSE 
IF dec char = 1 THEN 
output_tine(k) %= *a*3 
ELSE 
If dec_char = 2 THEN 
output_lbine(k) 3= *7"5 
Et SE 
IF dec_char = 4& THEN 
outout_tine(«k) s= °37*5 
=LSE 
Output_sine(t«k) 2= * *4 
IFENDS 
IFENDS 
IFENDS 
escane7& 3= FALSE$3 
IFEND$ 
ELSE 
output_line(k) %= speciai_disyolay_codes(dec_crartid; 
escape76 32= FALSE>$ 
IFENOS 
{ Generate octal data output. } 
> octai_data + 3 * ( Jj - 2 93 
output_tinetk) %= CHR ( dec_char DIV 8 + 30416) ) 35 
output_iine(k4+1) 2= CHR ( dec char MOD 8 + 30415) ) 3 
FORENDS 
{ Generate the word_address of the file. } 
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dec_char 3= sba DIV 8 + i = 13 
k 3= address_data 3 
REPEAT 


output_line(k) %= CHR ( dec_char MOD 10 + 30416) 9) 3 


dec_char = dec_char DIV 10 3 
kK 8=> kK - i 3 
UNTIL dec _char = 0 3 
{ Check for zero_byte_terminated line. } 
k 3= ascii_data + 18; 
/zero_byte_check/ 
REPEAT 
IF output line (Ck) 
output_iinelk) 
kK 3= k - 2 $3 
ELSE 
EXIT /zero_byte_check/$ 
IFENDS 
UNTIL k < ascii_data3 


—_ 
— 
E a4 
as 


IF (€ word_address + i - 1) MOD 50) = 0 THEN 


IF display_fiag THEN 


amp#tout_next (we_fids #LOC(titie_line), 


cbha, stat) 5 


amp#putf next {comm_fid, #LOC(Ttitle_ftine), #SIZE(titie_ 


cha, stat)3 
IFEND$ 
IFEND;3 
IF disptay_fiag THEN 


ampfputunext (ve_fids, #LOCloutput_iine), 


cha, stat ); 


amp#put_ next ( comm_fids #LOCloutout_Jine), #SI7El(output_ 


cboa, stat )3 
IFENDS 
FOREND3$ 
IFEND$ 


word_address *= word_address + tr_count DIV 83 


{ NOTE: no other statuses can togicalfty occur. 
ELSE 
CYCLE /main_loop/s 
CASEND 3 


WHILEND /main_toop/s 3 
{ Ciose input and outpnut files. } 
ampfciose (in_fid, stat) 3 
ampfctose (out_fids stat) 
amp#ctose (ve_fid, stat) 3 
amp#ctiose (comm_fids stat) 35 
END /fite#/3 
{ Free the atitocated storage areas. } 
free wsa_ptr 35 


wé 


3 
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free file attributes; 
END /programé#/}3 
PROCEND amp_examplie 3 
MODEND amp_exampie_deck; 
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208 INTERACTIVE FILES 


228.1 SIMULATED NOS/VE 170 


SIMULATED NOS/VE 170 detects any fite connected to a terminal. 


when the file is opened and aii connected files are supported. The 
user must insure that the terminal connection does not change shen 
the SIMULATOR is runninge 


Terminat input and output are provided through the $ Inout/Out out 
Control interface ({f0C) of SES. All data inPut or outout ail 
appear on the *SESLOG* file too. 


When the user program requests terninal input from SIMULATED 
NOS/VE 1/09 the preface “SIMULATED INPUTS” acpears on the OUT PUT 
fiie just prior to the data input request from the INPUT file. fhis 
preface serves to differentiate input being sent as data to the 
program being simulated from input that is processed by the 
SIMULATOR as a command. 


208.2 NOS/i178 INTERFACE I706 
The NOS/170 INTERFACE detects any file connected to a terminati 
when the file is opened. Data transmission with all such files is 


supported. The onty restriction is that terminal connection aust 
not change during the course of execution. 
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These procedures generate or convert onty SIMULATED NOS/VE files 
written sequentiaily. 


22921 CONVERTING A NOS/170 FILE TO SIMULATED NOS/VE FORMAT 


A procedure is available to convert NO0S/170 source fiies 
{containing character data) to SIMULATED NOS/VE format. The 
procedure is catiabie under SES via the commands: 


SES~T0180,T=ILFN,O=OLFN,CS612 or CS64 


ILFN is the input {NOS/170) ftogical file name and OLFN is the 
output (SIMULATED NOS/VE format) togicai file name. The optirsnal 
parameters CS6i12 and CS64 indicate the character set of the irput 
file. If this parameter is absent» CS612 is assumed. C3612 
indicates the NOS/170 6/712 ASCII character set. CS64 indicates 
NOS/170 display code or 6-bit ASCII character set. Note? The irput 
file must be in “Z" type NOS/170 format. 

This procedure can convert only character data. It is not 
possibile to transport binary information from a NOS/1i70 format file 
to a SIMULATED NOS/VE format fiite. 


209-2 CONVERTING A SIMULATED NOS/VE FILE TO NOS7170 FORMAT 


A procedure is avaitabte to convert a SIMULATED NOS/VE File 
(containing character data) to NOS/71i70 format. Tne procedure is 
caltable under SES via the command: 


SES-FROM180, I=ILFN,O=OLFN,CS612 or C564 


ILFN is the input (SIMULATED NOS/VE=) togical fiite name and JLFN 
is the output (N0S/170 format) flogicai file name. The optional 
parameters CS612 and CS64 indicate the character set of the output 
file. If this parameter is absent CS$612 is assumed. C>612 
indicates the NOS/170 6/12 ASCII character set. CS64 indicates 
NOS/170 display code. Note? The output fite will be in NOS/170 “Zz" 

This procedure cannot convert binary data fron SIMULATED NOS /VE 
files to NOS/170 fiies. 
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229.3 INSPECTING A SIMULATED NOS/VE FORMAT FILE 


A procedure is available to inspect the contents of a SIMULATED 
NOS/VE format fiite. The procedure prints a hexadecimal and an the 
ascii character corresponding to each 88-bit byte of data on the 
file. The procedure additionaily diagnoses any errors which present 
the file from being converted by the FROM180 procedure. The 
procedure is caiftable under SES via the commands 


SESeDUMP180 I-ILFN O=OLFN CS612 or CS64 FW=first LW=last 


ILFN is the input, SIMULATED NOS/VE format file and OGLFN is the 
output fitee If OLFN is omitted then “OLFN=OUTPUT”™ is assuned. 
CS$6i2 and CS64 are keywords to indicate the character set of the 
output file. If no keyword is given then CS612 is assumed. C3612 
indicates the NOS 6/12 ASCII character set and CS64 indicates the 64 


character display code character set, FW indicates the first 


NOS/170 word to dump and LW indicates the tast NOS/170 word to 
dumpe 


Tne output format is suitabie for printing and is as fol lows: 


1 WORD BYTE HEXADECIMAL DATA ASCII DATA 
ADDRESS ADDRESS F 8B 41 2 3 4 5 6 012345 6 

0 0 0060 08 O06 08 80 O00 00D 
i rg 007 41 4D 4&& 55 46 4&4 AMO UF OD 
2 E.. 1 49 00 00 680 07 00 00 i 
3 i5 000 06 43 &F 4D 4D &F c 0M M O 
ly ic 1 &E 08 060 00 06 O09 00 N 
5 23 0 00 43 78 20 5& 68 69 { Thi 
6 2A 073 20 63 6F 6D 6D 5F Ss comm o 
7 31 G 6E 20 64 65 63 6B 20 n deck 


Notes Tne “F™ column of hexadecimal data is 4&-bits of fill ania 
non-zero digit here indicates the next record header on the file 
starts “f" bytes from the teftmost byte of the word. 
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2010 NOS/170 INTERFACE <=> NOS/170 FILE CONVERSIONS 


These procedures generate or convert onty NOS/170 INTERFACE files 
written sequentialiy. 


2e010-¢1 CONVERTING A NOS/170 FILE TO NOS7V170 INTERFACE FORMAT 


A procedure is availabte to convert NOS/170 source files in “Z™ 
type format (tcontaining onty character data) to NOS/170 INTER- ACE 
formate The procedure is callable under SES via the commands 


SES.70170,I1=ILFN,O=OLFN,CS612 OR CS64 


ILFN is the input {NOS/170) local file name and OLFN is the 
output (NOS/170 INTERFACE format) fogal file name. The optidsnai 
parameters CS612 and CS64 indicate the character set of the irput 
file. If this parameter is absent C5612 is assumed. C3612 
indicates tne NOS/170 6/12 ASCII character set. C364 indicates the 
NOS/170 disptiay code or 6-bit ASCII character set. 

This program converts ontiy character datae [tis not possibi2 to 
record binary information on a zero byte terminated file. 


2210.2 CONVERTING A NOS/170 INTERFACE FILE TO NOS/170 FORMAT 


A procedure is availabie to convert a NOS/170 INTERFACE format 
file (containing only character data) to a NOS/176 “Z" type file. 
The procedure is calltabie under SES via the commands: 


SES.FROM17 0, I=ILFN,O=OLFN,CS612 or CS6% 


ILFN is the input (NOS/170 INTERFACE format) tocat file name and 
OLFN is the output €NOS/170 format) tocai file name- The optidnal 
keywords CS612 and C364 indicate the character set of the out out 
file. If this parameter is absent CS61i2 is assumed. CS612 
indicates the NGS/170 6/12 ASCII character set. CS64 indicates 
NOS/170 display code. The output file wilt be a “zero odyte 
terminated” format. 

This program cannot convert binary data. 


2210.3 INSPECTING A NOS7170 INTERFACE FILE 


A procedure is availabie to dums the contents of a NOGS/170 


INTERFACE format file. The procedure produces both a hexadeci nal. 


dump and an ASCII character dump of each word of the file. fhis 
procedure aiso diagnoses any errors which might prevent conversion 
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of the ftite by the FROM170 procedure. This procedure is cailabie 
under SES via the command: 


SESeDUMP170 I=ILFN O=OLFN CS612 or C564 FW=first LW=last 


ILFN is the input, NOS/1708 INTERFACE format file and OLFN is the 
output § file. If OLFN is omitted “OLFN=OUTPUT” is assumed. 635612 
and CS64 indicate the character set of the output § file. C3612 
indicates the NOS/170 6/12 ASCII character set and CS64 indicates 
‘NOS/170 display codes FW is the first NOS/170 word of the file to 
dump and LW is the tast word of the file to dump. 


The output of DUMP170 is printable and is in the follosing 
format; 


i WORD HEXADECIMAL DATA ASCII DATA 

ADDRESS 0 i 2 3 4 i234 
D 000 000 000 088 002 * 
1 0841 04D 044 055 046 AMODUF 
2 044 849 020 020 020 DI 
3 800 000 086 000 082 #* 
& 0463 O4F 04D BD4D O4F €¢ O0MM O 
5S O4E 820 020 O20 820 N 
6 800 060 680 000 BOE * 
7 O78 020 054 068 069 { Thi 
8 O73 020 063 OOF 06D S com 
9 06D O6F OB6E 020 064 mon d 


Notes A word with ascii data att bianks anda “*" just to the 
left of the ascii data area indicates a word containing a retord 
header. 
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2211 ERROR CODES 


The foltowing list includes onty those error codes returned by 
the SIMULATED NOS/VE I/0 system. A comotete fist of alt error codes 
generated by the SIMULATOR can be found in the ERS for the 
SIMULATOR. Within each message, the character string "+P" (plus, 
tetter P) is reptiaced by a parameter that is generated by the 
SIMULATOR. 


NUMBER MESSAGE 


6350 


6355 


6360 


6365 


6370 


6375 


6380 


SIGNIFIGANCE 


*ILLEGAL AMPS$FILE REQUEST, +P, LFN=+P* 
The calier has attemoted an AMPS$FILE function 
when the file is opens The file must be closed 
before the AMPSFILE call is accepted. 

*4°%+P™",. MEMORY ERROR, STATUS=+P* 
An error was detected attempting to refer2nce 
virtual memory white processing a NOS/VE I/70 
request. The most likely cause of the erro~ is 
an invatid parameter passed with the I/0 cali by 
the program. 

*+CANT ALLOCATE SPACE FOR +P” 
There is insufficient space to run the progam. 
Consult those who maintain the SIMULATOR and rave 
the SIMULATOR rebuilt with a targer stack/heao or 
reduce the amount of space used by the progran. 

*+PARAMETER ERROR FOR “+P", LFN=+4P* 
The value of the named parameter is out of range 
or the parameter specifies an. ordinal not 
supported by the SIMJLATED NOS/VE 1/0 system. 

*+ATTEMPTED SECOND OPEN OF LFN=+P° 
An open was requested of a fite which was 
previously opened and has not been closed. fhe 
program may contain an error or one of the load 
memory commands {such as 
Load_virtualt Environment) has been used more than 
once to refoad a program for execution. For the 
tatter case the Ciose_Logicat_File command may be 
used to fogicalty ciose the fite. 

*+DIRECT ACCESS ATTEMPTED OF SEQUENTIAL FILE, LFN=+P* 
A “get _direct™ or “put_direct™ was attempted 9»n a 
file opened with a fiie organization of 

“amc$sequentiai™. 

*+GET BEYOND END-OF~INFORMATION, LFN=+#P” 
A sequential get has been attempted after end of 
information has been returned for the file or the 
byte address specified for a get_direct is beyond 
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6385 


6390 


6395 


the last record on the file. 


"+NO RECORD AT BYTE-ADDRESS OF FILE, LFN=+P* 


*+TLLEGAL 


*+ILLEGAL 


This error can occur for any get request o- a 
put_direct with a byte_address that is before end 
of informatione This error occurs oniy for files 
aith record type anc$variabie. The data on the 
file at the current byte address cannot be 
recognized as a valid record header. The current 
byte address does not point to a record. The 
program making the request must be in error. 
AMPSGET_ REQUEST, LFN=+4+P* 

The calier has made an AMPSGET_DIR: CT, 
AMPSGET_NExT,s or AMPEGET_PARTTIAL cailt when the 
access_mode of fhe file does not include the set 
elements PFCSREAD or PFCSMODIFY Ciee. the file 
cannot be read). 

AMPSPUT_ REQUEST, LFN=+P* 

The catter has made an AMPS$PUT_DIR=CT, 
AMPSPUT_NEXT.s or AMPSPUT_PARTIAL call when the 
access_mode of the file does not inciude the set 
elements PFCSSHORTEN, PFCSAPPEND, or PFCSMODIFY 
(ieee the file can rot be written). 
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Z2ei2 USING THE CYBER 180 SIMULATOR 


Programs compiled with the CYBIL (CI) compiier may be prepared 
for SIMULATION via tne GENCPF procedure. The output fite from 
GENCPF is a CheckPoint Fite. When the SIMULATOR is caltied into 
execution, the program may be toaded into the SIMULATOR by 
specifying the file as the ReStart fite to the SIM180 procedur2 or 
after the SIMULATOR has been called the file may be toaded by the 
restart (RS) command. 


In the event that an error is found in the programs the SIMULATOR 
stops running, fhowever ali fites oreviouslty opened via AMPSIPEN 
procedure calitis in the program are stiti logicaltiy open. In 
addition, the Peregister is advanced to the next instruction beyond 
the AMPS procedure call. <A run command entered at this point 41114 
resume execution of the program at this point. 


It atso possibile to refoad the program again and resfart 
execution from the beginning of the program after an error stop has 
been made. For this case the SIMULATOR does rot automaticaity 
perform the togical ciose of any files opened in the previous “un. 
The user is responsible for maintaining the togical file status 
corretation between the SIMULATOR and the program. The 
Ctose_Logicalt_Fites {CLF) command may be used at any time to 
logicatiy ctose (ito the SIMULATGR) any file opened by the progran. 


When a program built via “SES.GENCPF™ runs to compietion on the 
SIMULATOR the message “NORMAL termination” is output to the 
displaye This message is built into the program by GENDPF. 
Following this message is a SIMULATOR message of the form “** MSG 
62183 CPU HALT AT eee", after which the SIMULATOR accepts further 
commands. To tog off the SIMULATOR use the “END™ command. 
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2013 SAMPLE TERMINAL SESSION FOR SIMULATED NOS/VE_ 170 


/get;ampex 
/Se@S.g9encomp m=ampex b=base cybicmn 
* GENERATING COMPILE FILE COMPILE 
* END GENCOMP COMPILE <- BASE 
/sesecydil ci 
¥ COMPILING COMPILE 
* END CYBIL COMPILE -> LISTING, LGO 
/detine,xampex . 
/ses.gencpf of t=Igo cybilib cpof=xampex 
*¥,EXECUTING THE VE LINKER. 
*,EXECUTING THE CPF GENERATOR 
¥ END GENCPF 
7ses.eprint f=Clinkmapslisting) h=ampex 
+ END PRINT LINKMAP..LISTING 
Jattach,data=zsmpisd 
7ses2tois80 data source 
= END T0180 DATA -> SOURCE 
7$e5-51im180 xampex 

** MSG 60523 CYBER 180 SIMULATOR VER 65.20 (REV. Q) LEV 110 
Pr 

program start AMPEX 

end program AMPEX 

NORMAL termination 

*¥ MSG 62183 CPU HALT AT P=0000 8600 0000 0018, STATE=J0B 


? end 

* END SIM180 

/ses.efromi80 fmti80 jist 

- END FROM1 80 FMT1i80 -> LIST 
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2014 NOS/170 INTERFACE OTFFERENCES 


Differences between SIMULATED NOS/VE I/0 and the NOS/ 170 
INTERFACE nave been minimized, but cannot be completely eliminated. 
These differences arise from the hardware differences between the 
Two machines and from the intentionally designed differences betareen 
the two operating systems. The differences ares 


1.2 Working _storage_tength parameter is always given in CELLs and 
should be generated via the #STZE function of CY3IL. 
Difficulties may arise when communicating with an interactive 
file because this device type requires a tength in characters. 

_NOS/VE has no probiem here because CELL size equals chara:ter 
size. NOS/1768 packs 5S characters per CELL (word). Uniess the 
user*s messages are muitipies of 5 characters there is a 
possibility fhat 1 to 4&4 garbage characters may be transmitted to 


the terminal. The NOS/170 INTERFACE wilit truncate alt. 


“non_graphic™ characters in the tast CELL of data. The NOS/170 
INTERFACE atso blank filis any remaining characters in the Ilast 
CELL of any input datae Normatiy ali CYS8IL variables start on a 
CELL boundary, but an exception is strings that are part of a 
PACKED RECORD. If the message does not start on a CELL bouniary 
1 to 4& garbage characters may precede the message transmitted To 
the terminat. Input from a terminal to a variabie not starting 
on a CELL boundary may result in the toss of the first 1 tt) 4&4 
characters of data. 


2e Since both NOS/VE and SIMULATED NOS/VE 1/0 simulate the same 
procedures, both would ordinarily thave the same § entry_pvint 
namese In order to avoid this problem the SIMULATED NOS/VE I/70 
procedures have entry_point names beginning with “AMP#", whereas 
NOS/VE wilt) keep the entry_point names beginning with “AM?3"™. 
The “AMP#" entry_point names will come from the copy of the 
common decks for NOS/VE kept on the CYBICMN tibrary. Should one 
want the NOS/VE common decks instead, they may be obtained by 
specifying and aiternate base with these common decks to 
SES. GENCOMP. 
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2015 SAMPLE SESSION FOR THE NOS/170 INTERFACE 


/get, source 

/ses.toi70 source 

~ END T0170 SOURCE 

/S2Se29eENCcCOMP m=ampex b=amo cybccmn 

* GENERATING COMPILE FILE COMPILE 
¥ END GENCOMP COMPILE <=- AMP 
7ses.cybil debug 

* COMPILING COMPILE 


* END CYBIL COMPILE -> LISTING, LGO 
7seseilinki70 cybciib debug 

¥ END LINK170 LG6GB,2ZZZZZDT 
/debdugs,on 

$DEBUG, ONe 

/igob 


CYBIL INTERACTIVE DEBUG 

? sb 1114390 
program start AMPEX 

*B #1, AT LINE=1114 
? dv trocount 

TR_COUNT = 2 

? cb b=139g90 
end program AMPEX 

*7T #17, END IN MODULE SW=CMFR OFFSET 018) 
? quit 

DEBUG TERMINATED 

/debug,off 
$DEBUG, OFF. 
/ses.fromi70 fmti80 file 

¥ END FROM170 FMT180 -> FILE 


COMPANY PRIVATE 


Py ee ee ee ee ee ee ee ee ee ee ee ee ee) ee ee. ee) ee ey 


3-1 
CDC SOFTWARE ENGINEERING SYSTEM 
01/257 80 
ERS for SIMULATED NOS/VE PROGRAM INTERFACES 


320 SIMULATED NOS/VE PROGRAM MANAGEMENT INTERFACES 


300 SIMULATED NOS/VE_ PROGRAM MANAGEMENT INTERFACES 


3ei PMXGTIM (PMPSGET TIME) 


The purpose of this fequest is to obtain the current time of day 
in a user setected format. 


PMPSGET_TIME (FORMAT, TIME, STATUS) 


Will be returned. Vatid specifications are: 
omcSampm_time $$ HHSMM AM or PM 
examples 1315 PM 
omct$hms_time 3 HH?MMSS5S 
example? 1332315221 
pmcS$miltisecond_time 2 HH: MM:3S2 MMM 
examples 133153212453 


TIMES (output) This parameter specifies the current time. 


STATUSS (output) This parameter specifies the request status. 


Fos Wan Woe Wi ne a Wt an Tian th oe it oa Un Uh on Ban ft an toe Eos en on tn a 


PROCEDURE {XREF1 omptget_time (format? ost$time_formats; 
VAR time’ ost$time3 
VAR status: ost%$status) 3 


322 PMXCDAT (PMPSGET DATED 


The purpose of this request is to obtain the current date ir} 
a user selected format.} 


PMP$GET_DATE (FORMAT, DATE, STATUS) 


witli be returned. Valid specifications ares 
pmc$month_date * month DD, YYYY 


‘am: tt an Bi on Win ttn Eo Bon a 
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san 


glad 


FORMAT: (input) This parameter specifies the format in which the time 


FORMAT: input) This parameter specifies the format in which the date 


beg 
CDC SOFTWARE ENGINEERING SYSTEM 
01/7257 80 
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3.2 PMXGDAT (PMPSGET_DATE) 


examples: November 13, 1978 
pac$mdy_date 3: MM/DD/YY 
example? 11713778 
pmc$iso_date 3: YYYY-MM~DD 
exampie: 1978-13-11 
pmc$ordinat_date : YYYYDDOD 
exampie? 1978317 


DATE: (outout) This parameter specifies the current date. 


STATUS: Coutout) This parameter specifies the request status. 


PROCEDURE [XREF] pmpg$get_date (format? ost$date_formats; 
VAR date? ost$dates5 
VAR status’ ost$statusi 5 


323 PMXLOG {PMPS$LOG) 

This interface differs from the description in the NOS/VE ERS, in that TEXT 
issued as a message to the CYBER 170 dayfile, bracketed by th: nessages °*** 
MESSAGE **** and **** HSS MESSAGE ENDS **¥*¥*, Tne parameter LOG is not used» and 
inciuded solely for the sake of compatibiiity with NOS/VE. 

The purpose of this request is to place a message onto the dayfile 
PMPS$LOG ¢€ TEXT, LOG, STATUS ) 
TEXTS (input) This parameter specifies the text of the message. 


LOG: input) This parameter specifies which tlog({s) is to receive 
The message. 


STATUS: foutout) This parameter specifies the request status. 


fon it on Wa Bans Bian ics Hams oe fae San Bn a 


PROCEDURE (XREF1] pmostog (text? omt$iog_msg_ text; 
fog: pmtSiogset; 
VAR status: ost$status) $ 


324 PMXGMSC_ (PMPS$GET_MICROSECOND CLOCK) 

This routine functions differentiy depending on whether CPULTIMING is turne 
or off in the CYBER 180 SIMULATOR. [If CPU_TIMING is turned ons then the vari: 
MICROSECOND_CLOCK returns an accurate value of the time since the star 
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324 PMXGMSC (PMPSGET MICROSECOND_CLOCK) 


execution. If CPU_LTIMING is turned offs then MICROSECOND_CLOCK zsontains a coun 
the instructions executed since the beginning of execution. 


The purpose of this request is to obtain the current vaiue of the 
microsecond ciock. Successive requests are guaranteed to return 
different vatues. 

PMPS$GET_MICROSECOND_CLOCK (MICROSECOND_CLOCK, STATUS) 


MICROSECOND_CLOCKS (output) This parameter specifies fhe currant value 
of the microsecond ciock. 


STATUS: (output) This parameter specifies the request statuse 


PROCEDURE {XREF] pomp$get_microsecond_clock {VAR microsecond_cloc<: 
ostt%microsecond_ctock$ 
VAR status? ost$status) 3 


TYPE 
ost$microsecond_ciock = 0 .. OFFFFFFFFIFFF(16)3 


325 DATA TYPES 


32521 PMDLOGP 


{ System togging interface type dectarations. } 


TYPE 
pmttiog_msg_text = string ( * ), 


opmt$iog_ msg_origin = (Cpmefmsg_origin commands pomcEmsg_origin_system, 
ome$msg_origin_procedure, omcEmsg_origin_program) » 


pmft$togs = (pmesjob_statistic_log, pmces$account_toge pmcfengine2zring_iog, 
pmc$statistic_{fogs pmcssystem_logsy pmc$job_tog), 


pmttascii_logs = pmc&system_log «2 pmc$job_iogs 


| 


pmt$binary_!l!ogs = pmc$job_statistic_tog .. pmctstatistic_ltog, 


pmt$giobali_togs = pmc$account_log .. ometsystem_log, 
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32521 PMDLOGP 
pmt$liogset = set OF pmtS$iogs, 
pmft$ascii_logset = set OF pmtSascii_iogs, 
pmft$binary_logset = set OF pmtSbinary_logs;, 
pmtsgliobal _togset = set OF pmt$gliobal_logs3 
32522 OSDTIME 
{ Time request return vaiue. } 
TYPE 
ostStime = record 
CASE time_format: ost$time_formats OF 
=osctSamon_time=- 
amom? string €8), € HHSMMS AM or PM } 
=osc$hms_time= 
hms’: string (8), € HHSMM3SS } 
=oscEmillisecond_time= 
mitdisecond: ost¢time_ms, 
CASEND, 
recends 
ost$time_ms = string (12), € HH3MM2SS.MMM } 
ost$time_formats = (osctdefault_timesy oscfampm_times oscthms_time, 


osc$millisecond_time) 3 


32523 OSDDATE 


{ Date request return value. } 


TYPE 
ost$date = record 


CASE date_format: ost$date_formats OF 


zosc$month_date= 


month: string (18), € month DD,» YYYY 3} 


z=osc$mdy_date= 
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32523 OSDDATE 


mdy? string (8), € MM/DD/YY } 
=oscfiso_date= 
iso: string (10), € Y¥YY-MM-DD } 
=osctordinat_date= 
ordinai: string (7), € YYYYDDD } 
CASEND, 
recends 


ost$date_formats = (osctdefault_date, osctmonth_ date, 
osc$iso_date, osct$ordinai_date)3 


$2524 OSOSTAT 


CONST 
osc$max_condition = 999999, 
osc$status_parameter_detimiter = °™*3 


TYPE 
ost$status_condition = 0 .. oscf$max_condition}3 


TYPE 
ost$status = record 
case normai: bootfean of 
=faise= 
identifier: string (2), 
condition: ost$status_conditions 
texts ost$strings 
casend, 
recend$ 


*calic osdstr 


osc tmdy_jate, 
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ROCEDURE COMMON DECKS . 


AMXCLSE 
AMXFILE 
AMXFNFO 
AMXFTCH 
AMXGETD 
AMXGETN 
AMXGETP 
AMXKGFAT 
AMXOPEN 
AMXPUTD 


AMXPUTN 
AMXPUTP 


AMXREWD 
AMXSEEK 


AMXSTOR 
NESTED COMMON DECKS 


AMDBLKH 
AMDFATT 
AMDFILE 
AMDFNFO 
AMDGL OB 
AMDINFO 
AMDLOP . 
AMDNAME 
AMDOPEN 
AMDOPOS 
AMDOWNC 
AMDRCOH 
AMDSKIP 
AMOSTOR 


OSDADDR 


OSOCFS 
OSDNAME 
OSOSTAT 
OSDSTR 
OSDWNW 
PFDATRB 
PMDNAME 
RMODCLAS 
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